Comment puis-je tracer ma valeur R Squared sur mon diagramme de dispersion en utilisant R?

Question

Cela semble une question simple, alors j'espère que c'est une réponse simple. Je suis en train de tracer mes points et d'ajuster un modèle linéaire, que je peux faire OK. Je veux ensuite tracer quelques statistiques sommaires, par exemple la valeur R Squared, sur l'intrigue aussi. Je peux seulement sembler obtenir la valeur R Squared à la ligne de commande. Des conseils; dois-je regarder ggplot ou autre chose? Merci d'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)) 

Answer 1

Vous pouvez abuser legend() parce qu'il a le placement logique pratique:

R> DF <- data.frame(VAR1=rnorm(100), VAR2=rnorm(100)) 
R> with(DF, plot(VAR1, VAR2)) 
R> abline(fit <- lm(VAR2 ~ VAR1, data=DF), col='red') 
R> legend("topright", bty="n", legend=paste("R2 is", 
+   format(summary(fit)$adj.r.squared, digits=4))) 

Ici bty="n" supprime la boîte, et vous avez besoin format() de réduire l'affichage. Autre text() est bon, comme le sont les arguments main= et sub= à plot().

Answer 2

La fonction text place le texte dans le tracé actuel, c'est une option pour ajouter la valeur r-carré à un tracé. Regardez également les fonctions grconvertX et grconvertY pour trouver l'emplacement où placer le texte. Les fonctions corner.label et emptyspace du package plotrix peuvent également vous aider.