在图上增加回归线方程和R2

Question

在图上增加回归线方程和R2

我想知道如何将回归线方程和R^2添加到ggplot..我的代码是

library(ggplot2)df <- data.frame(x = c(1:100))df$y <- 2 + 3 * df$x + rnorm(100, sd = 40)p <- ggplot(data = df, aes(x = x, y = y)) +
            geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) +
            geom_point()p

任何帮助都将不胜感激。