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

Question

这个问题在这里已有答案：

• Adding Regression Line Equation and R2 on graph 6个答案

我用以下代码创建了一个图表：

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

：