-1
這裏是我一起工作的腳本:散點圖矩陣
data(mtcars, package= "datasets")
diacars <- subset(mtcars,select = c(mpg,disp,hp,drat,wt,qsec))
summary(diacars)
corMat <- cor(diacars, method= "pearson")
round(corMat,2)
car::scatterplotMatrix(~mpg+disp+hp+drat+wt+qsec, data=diacars, diagonal="density",
smoother=gamLine)
corrplot::corrplot(corMat, col=colors, method="ellipse", order="FPC",
diag=FALSE, addCoef.col="green")
是將重點放在這一部分:
car::scatterplotMatrix(~mpg+disp+hp+drat+wt+qsec, data=diacars, diagonal="density",
smoother=gamLine)
散點圖矩陣應該是這個樣子:
但它沒有。