如何将回归线添加到散点图矩阵？

Question

如何将回归线添加到散点图矩阵？我有以下脚本：

NewNEMSIS = read.csv("NewNEMSIS.csv")
library(gclus)
newmatrix = NewNEMSIS[,2:5]
newmatrix.r = abs(cor(newmatrix))
newmatrix.col = dmat.color(newmatrix.r)
area = NewNEMSIS$area
cpairs(newmatrix[which(area=="A"),c('Response','SceneToPatient','TotalScene','TotalCall')], panel.colors=newmatrix.col, gap=.5, main="Scatterplot Matrix of City A Times", ylim=c(0,60), xlim=c(0,60), na.omit=TRUE, )

如何在将这些散点图保持为矩阵形式的同时向这些散点图添加样条曲线或倾斜回归线？谢谢！

Answer 1

cpairs只是基本图形pairs功能的彩色版本，查看其代码，您可以看到它确实接受了中描述和说明的常规面板功能集?pairs。这是一个可复制的示例（您的不是）：

require(gclus)
png();   judge.cor <- cor(USJudgeRatings)
         judge.color <- dmat.color(judge.cor)
?pairs
#Review the panel functions
?cpairs  
cpairs(USJudgeRatings,panel.colors=judge.color,pch=".",gap=.5, 
        upper.panel=panel.smooth)
dev.off()

您应该学习发布一个说明问题的示例。我们没有办法知道该.csv文件中的内容，因此表明您执行该操作对理解正在发生的事情毫无用处（上面知道结果是一个数据帧）。可以使用所要求功能的帮助页面中的示例。