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