Добавление уравнения линии регрессии и 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", ...