Добавить уравнение линии регрессии и R ^ 2 на графике

Интересно, как добавить уравнение линии регрессии и 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

Любая помощь будет будут высоко оценены.