向多个散点图添加回归线答案

【问题标题】：Adding Regression Lines to Multiple Scatter Plots向多个散点图添加回归线
【发布时间】：2015-07-31 04:48:16
【问题描述】：

环顾四周，找不到我的问题的答案，所以终于停止了潜伏。我一直在创建多个散点图，将每一列与其他列进行比较，如下所示

我使用了脚本

attach(`File`)
plot(`Files`[,c(2,3,4,5,6,7,8)])

但是我似乎无法正确输入将回归线和 r2 值注释到图表上的命令。

【问题讨论】：

我投票结束这个问题，因为它是关于如何在没有可重现示例的情况下使用 R。
在 pairs 函数中使用 *.panel 选项。我在stats.stackexchange.com/a/65948 发布的代码中有一个简单的使用示例。
谢谢我会试试这个以及哈米德的评论

标签： r regression

【解决方案1】：

这里是解决方案。假设 Z 是您的设计矩阵。

z=matrix(rnorm(500),ncol=5)

pairs( z, panel=function(x,y){
  points(x,y)
  abline(lm(y~x), col='red')
  text(0,1.5,labels = paste('R2=',round((cor(x,y))^2,2)) ,col='red' )
})

结果应该是这样的

【讨论】：

非常感谢您的意见，我会试试这个！