3

我想使用 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() 语句来完成？

4

2 回答 2

4

这有效...

geom_text(x=2.5, y=5, label="R^2 == 70*'%'", parse=TRUE)
于 2017-05-03T18:35:55.240 回答
1 


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)

于 2017-05-03T18:36:56.120 回答