文章/答案/技术大牛

发布

社区首页 >问答首页 >如何在R中使用geom_text编写上标和下标文本？

问如何在R中使用geom_text编写上标和下标文本？
EN

Stack Overflow用户

提问于 2022-11-02 22:09:04

回答 1查看 35关注 0票数 0

我想在图中写一个模型方程。

nitrogen<- c(10,15,20,25)
yield<- c(50,70,85,30)
dataA<- data.frame(nitrogen,yield)

ggplot(data=dataA, aes(x=nitrogen, y=yield))+
  geom_point (col="Black", size=4) +
  stat_smooth(method='lm', linetype=1, se=FALSE, formula=y~poly(x,2, raw=TRUE), size=0.5, color="Blue") +
  windows(width=5.5, height=5)

现在我想在图中写下面的方程式。我知道这方面有很多问题，但我找不到解决办法，而且还在苦苦挣扎。所以我再问一遍。很抱歉重复了问题。

你能告诉我怎么写上标和下标文本吗？

总是非常感谢！！

subscript

geom-text

superscript

回答 1

Stack Overflow用户

回答已采纳

发布于 2022-11-02 22:45:35

library(ggplot2)

nitrogen<- c(10,15,20,25)
yield<- c(50,70,85,30)
dataA<- data.frame(nitrogen,yield)
coef = coef(lm(yield ~ poly(nitrogen,2, raw=TRUE)))

ggplot(data=dataA, aes(x=nitrogen, y=yield))+
  geom_point (col="Black", size=4) +
  stat_smooth(method='lm', linetype=1, se=FALSE, formula=y~poly(x,2, raw=TRUE), size=0.5, color="Blue") +
  windows(width=5.5, height=5) + 
  annotate("text", x=15, y=16, label = bquote(~ Y[i][j]==.(coef[1])+.(coef[2])*x+.(coef[3])*x^2))

编辑这个版本对公式显示提供了更多的控制：

ggplot(data=dataA, aes(x=nitrogen, y=yield))+
  geom_point (col="Black", size=4) +
  stat_smooth(method='lm', linetype=1, se=FALSE, formula=y~poly(x,2, raw=TRUE), size=0.5, color="Blue") +
  windows(width=5.5, height=5) + 
  annotate("text", x=15, y=16, label = bquote(
    ~ paste(Y[i][j],"=", .(sprintf("%.2f", coef[[1]])), .(sprintf("%+.2f",coef[[2]])),x, .(sprintf("%+.4f",coef[[3]])),x^2)))

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/74296121

复制

相似问题

问如何在R中使用geom_text编写上标和下标文本？
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在R中使用geom_text编写上标和下标文本？EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在R中使用geom_text编写上标和下标文本？
EN