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

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函数的彩色版本，查看其代码，您可以看到它确实接受{{1}中描述和说明的常规面板函数集。 }。这是一个可重复的例子（你的不是）：

?pairs

您应该学会发布一个说明问题的示例。我们无法知道.csv文件中的内容，因此显示您执行该操作对于了解正在发生的事情是无用的（通过以上知道结果是数据帧）。可以使用您询问的函数帮助页面中的示例。