在R中向散点图矩阵添加回归线[重复]

Question

我有一个名为“保险”的数据，其中包含以下内容：

head(insurance)
  Race Fire Theft  Age Invol Income
1 10.0  6.2    29 60.4   0.0 11.744
2 22.2  9.5    44 76.5   0.1  9.323
3 19.6 10.5    36 73.5   1.2  9.948
4 17.3  7.7    37 66.9   0.5 10.656
5 24.5  8.6    53 81.4   0.7  9.730
6 54.0 34.1    68 52.6   0.3  8.231

我想构建一个散点图矩阵，并在每个散点图上拟合回归线。为了实现它，我需要在代码plot(insurance) 中添加一些东西吗？我试过输入代码abline(insurance,col="red")，但什么也没出现。

Answer 1

我们可以这样做：

z <- as.matrix(df)
z
class(z)

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