如何使用R在我的散点图上绘制我的R Squared值？

Question

这似乎是一个简单的问题,所以我希望它是一个简单的答案.我正在绘制我的点并拟合线性模型,我可以做到.然后我想在图上绘制一些汇总统计数据,例如R Squared值.我似乎只能在命令行中获得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().

Answer 2

该text函数将文本放入当前图中,这是将r平方值添加到图中的一个选项.另请查看grconvertX和grconvertY函数以查找放置文本的位置.

该corner.label和emptyspace功能的plotrix包也可能有帮助.