在图上显示拟合的R ^ 2值

编程问答 2022-08-16

问题描述

我正在开发一个闪亮的应用程序，其中，我通过上载.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 (将#修改为@）

ggplot2ggplotlyrrshiny