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)