如何解决在图上显示拟合的R ^ 2值
我正在开发一个闪亮的应用程序,其中,我通过上载.txt格式的数据文件来生成散点图。
我在散点图中进行多项式拟合。我希望该图显示R^2
的值。
这是我的尝试:
#plot
g <- ggplot(data = df,aes_string(x = df$x,y = df$y)) + theme_bw() +
geom_point(colour = "blue",size = 0.1)+
geom_smooth(formula = y ~ poly(x,input$degree,raw = TRUE),method = "lm",color = "green3",level = 1,size = 0.5)+
stat_poly_eq(formula = y ~ poly(x,aes(label = paste(..eq.label..,..rr.label..,sep = "~~~")),parse = TRUE)
ggplotly(g)
滑块用于改变多项式函数的次数,其手柄为input$degree
我使用了stat_poly_eq
包中的ggpmisc
来获取R^2
的值
但是,当我运行这段代码时,R^2
的值不会作为图例反映在ggplot
上。根据我所看到的示例,这些应该作为情节的图例反映在情节上。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。