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

Question

这似乎是个简单的问题，所以我希望它的一个简单的答案。我正在绘制我的观点并拟合一个线性模型，我可以确定。然后，我想在图上绘制一些汇总统计数据，例如R平方值。我似乎只能在命令行获得R平方值。 任何建议;我需要查看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包也可能有所帮助。