r - 是否有 r 函数可以将 p 值、R 平方和 r 添加到 geom_smooth？

Question

我想知道如何使用 geom_smooth 获取 ggplot 的统计数据。我尝试使用 stat_cor 但我不确定它是否适用于 geom_smooth 中的线的正确值，而且我不知道如何添加 r-squared。在最好的情况下，我希望像普通回归一样具有汇总功能，仅用于几何平滑。我不知道这是否可能。谢谢你的帮助。代码和图表如下。

GAMFORMULA<-y~s(x,k=3,fx=F)
  #BHD~Höhe

g<- ggplot(data = data_clean) +
  geom_point(mapping = aes(x = BHD, y = Höhe, color = Soziale.Stellung)) +  
  geom_smooth(method = "gam", mapping = aes(x = BHD, y = Höhe), 
              color = "red", formula = GAMFORMULA) +
  xlab("BHD in cm") + 
  ylab("Höhe in m") 

g + stat_cor(method = "pearson",mapping = aes(x = BHD, y = Höhe),
             formula = GAMFORMULA) 


                    
               

图形