Jak mogę wykreślić wartość mojego kwadratu na moim wykresie rozrzutu za pomocą R?

Question

To wydaje się proste pytanie, więc mam nadzieję, że jest to prosta odpowiedź. Planuję swoje punkty i dopasowuję model liniowy, który mogę zrobić dobrze. Następnie chcę wykreślić kilka statystyk podsumowujących, na przykład wartość kwadratu R, również na wykresie. Mogę tylko uzyskać wartość R Squared w wierszu poleceń. Wszelkie porady; czy muszę patrzeć na ggplota czy cokolwiek innego? Z góry dziękuję.

#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

można nadużywać legend() ponieważ ma poręczny logiczną Umiejscowienie:

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

Tutaj bty="n" tłumi pole i trzeba format() skrócić wyświetlacz. Inny text() jest dobry, podobnie jak argumenty: main= i sub= do.

Answer 2

Funkcja text umieszcza tekst na bieżącym wykresie, jest to jedna z opcji dodawania wartości r-kwadrat do wykresu. Zobacz także funkcje grconvertX i , aby znaleźć sposób lokalizacji tekstu.

Funkcje i emptyspace w pakiecie plotrix mogą również pomóc.