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

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

结果应该是这样的