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)

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)

​

​