关于ggplot中注释的更好解决方案？

Question

我有以下代码

     standard_text = "(%)"
    plotmath_text <- "I^2"
    g <- ggplot(data=data.frame(x=0,y=0))+geom_point(aes(x=x,y=y))
g+ annotate("text", x = 4.3, y = 6.97, label =standard_text)+
 annotate("text",x = 4, y = 7, cex = 7, label = plotmath_text,parse = TRUE )

生成一个图形，其右上角有注释

  

I ^ 2（％）

有没有办法只使用annotate命令而不是两次创建相同的注释？我试图将它们合并到that page之后的一个命令中，但我总是遇到错误。

Answer 1

annotate("text", x = 4, y = 7, cex = 7, label = "I^2 ~ ('%')", parse = TRUE)

UPD：相关问题：one，two。