r - 将 R^2 值添加到绘图

Question

我是 R 的新手。

我制作了以下图，但想知道如何使用 ggpmisc 和stat_poly_eq函数在线性模型线上包含 R^2 值。我的代码如下 -

ggplot(xray, aes(x=PercentGoodFish1g, y=PercentPopAff)) +
  geom_smooth(method='lm') +
  geom_point()

有人可以帮忙吗？我已经访问了带有示例的链接，但无法理解代码以及它正在做什么以将其应用于我的情节。

谢谢