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 

は予想以上に複雑です。 私は2番目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)