ggplot2中使用上标注释

Question

我该如何在ggplot注释中添加上标？我想显示R² = somevalue 我尝试在annotate内使用parse=TRUE，但它给了我=Rsuperscript2，somevalue

lm1 <- lm(dData$RF ~ dData$Exp -1)
lb1 <- paste("R^2 = ", round(summary(lm1)$r.squared,4))
p1 <- ggplot(dData, aes(x=dData$Exp, y=dData$RF)) +
  scale_x_continuous("Experimental") + 
  scale_y_continuous("Predicted") + 
  geom_point() + geom_smooth(method="lm") + 
  annotate("text", x=max(dData$Exp), y=min(dData$RF)+1, label=lb1, 
           hjust=1, size=3, vjust=1)

- lochi

---

无法重现的示例 - user3236841

Answer 1

这个问题是关于上标还是等号的？如果在表达式中使用parse=TRUE并切换到==，可以解决此问题。由于没有你的dData，这里提供一个示例。

lb1 <- paste("R^2 == ", round(runif(1),4))
qplot(1:10, 1:10) + 
  annotate("text", x=2, y=8, label=lb1, parse=TRUE)

- Brian Diggs