将回归线添加到多个散点图

Question

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

我使用了脚本

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

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

Answer 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' )
})

结果应该是这样的