Comment puis-je tracer ma R au Carré de la valeur sur mon nuage de points à l'aide de R?

Cela semble simple question, donc j'espère que son une réponse simple. Je suis traçage mes points et ajustement d'un modèle linéaire, qui je peux faire OK. Ensuite, je veux tracer des statistiques sommaires, par exemple le R au Carré de la valeur, sur le terrain aussi. Je ne peux que semble pour obtenir le R au Carré de la valeur à la ligne de commande.
Tous les conseils, dois-je être à la recherche à ggplot ou quoi que ce soit d'autre? Merci à l'avance.

#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))