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=to也很好plot()。

Answer 2

该text函数将文本放入当前绘图中，它是将 r 平方值添加到绘图中的一种选择。另请查看grconvertX和grconvertY函数，了解查找放置文本的位置的方法。

包中的corner.labelandemptyspace函数plotrix也可能有所帮助。