geom_text（），plotmath和％

Question

我想添加＆＃34; R ^ 2 = 70％＆＃34;到我的情节使用geom_text（）（其中^表示上标）。

没有％符号，很容易：

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)

Answer 2

library(ggplot2)

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