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

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 文件中的内容，因此表明您执行了该操作对于了解正在发生的事情是没有用的（在上面知道结果是一个数据帧）。可以使用您所询问的函数的帮助页面中的示例。