r - geom_text()、plotmath 和 %

Question

我想使用 geom_text()(其中 ^ 表示上标)将“R^2 = 70%”添加到我的绘图中。

没有 % 符号，很简单:

my.data <- data.frame(x=1:5, y=1:5)
p1      <- ggplot(my.data, aes(x=x, y=y)) + geom_point()
p1      <- p1 + geom_text(x=2.5, y=5, label="R^2 == 70", parse=TRUE)
p1

添加 % 比预期的要棘手。我设法通过添加第二个 geom_text() 语句来获得它:

p1 <- p1 + geom_text(x=2.63, y=4.97, label="%")
p1

如何使用单个 geom_text() 语句完成？

Answer 1

这有效...

geom_text(x=2.5, y=5, label="R^2 == 70*'%'", parse=TRUE)