Как я могу нанести значение R Squared на диаграмму рассеяния с помощью R?

Это кажется простым вопросом, поэтому я надеюсь, что это простой ответ. Я рисую свои точки и подбираю линейную модель, с которой я могу работать нормально. Затем я хочу нанести на график некоторую сводную статистику, например значение R в квадрате. Любой совет; мне нужно смотреть на ggplot или что-нибудь еще? Заранее спасибо.

#Does the plot
plot(df$VAR1, df$VAR2)
#Adds the line
abline(lm(df$VAR2~df$VAR1), col="red")
#Shows stats on command line
summary(lm(df$VAR2~df$VAR1))