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

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

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, )

如何将样条或倾斜回归线添加到这些散点图，同时将它们保持为矩阵形式？谢谢!

最佳答案

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 文件中的内容，因此表明您执行了该操作对于理解正在发生的事情(通过上面知道结果是数据帧)毫无用处。使用您询问的功能的帮助页面中的示例是很好的。

关于r - 如何将回归线添加到散点图矩阵？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27194627/