r - 如何使用R在散点图上绘制R平方值？

Question

这似乎是一个简单的问题，所以我希望它是一个简单的答案。我正在绘制我的点并拟合线性模型，可以这样做。然后，我还要在图表上绘制一些摘要统计信息，例如R平方值。我似乎只能从命令行获得R Squared值。
任何建议；我需要看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))

Answer 1

您可以滥用legend()，因为它具有方便的逻辑位置:

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

这里 bty="n"取消显示该框，您需要 format()来缩短显示时间。其他 text()很好， main=的参数 sub=和 plot()也不错。