如何将R ^ 2和P值添加到R中的ggplot？

Question

我创建了一个包含以下代码的图表：

ggplot(data.frame, aes(x=Score, y=Year, col=Position)) + geom_smooth(method="lm", se=FALSE)。

情节如下所示。我想在可能的情况下将Pearson r值和P值添加到附带的标签表或图表上的新表中？添加P值比Pearson r更重要。谁能帮我这个？

可重复性数据样本：

Year   Position   Score
2010   QB         16.5
2011   QB         15.4
2012   QB         16.1
2013   QB         14.3
2014   QB         13.8
2010   RB         14.2
2011   RB         13.9
2012   RB         13.9
2013   RB         11.8
2014   RB         11.6
2010   WR         11.4
2011   WR         12.4
2012   WR         10.4
2013   WR         8.8
2014   WR         9.7

：

Answer 1

查看ggpmisc::stat_fit_glance()

如果没有可重复的示例，我无法提供完美的代码，但它应该看起来像这样。

library(ggpmisc)
ggplot(data.frame, aes(x=Score, y=Year, col=position_new.y)) +
geom_smooth(method="lm", se=FALSE) +
stat_fit_glance(method = 'lm', geom = 'text', aes(label = paste0('p = ', round(..p.value.., 3))), label.x.npc = 0.4, label.y.npc = 1) +