如何在散点矩阵中添加回归线？

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

如何在这些散点图中添加斜线回归线，并保持它们在矩阵形式中？谢谢！

- bubbalouie

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文件中包含什么内容，因此展示您执行了该操作对于理解正在发生的事情是无用的（除了知道结果是数据帧之外）。使用您要询问的函数帮助页面中的示例是可以的。

- IRTFM

---

有没有办法将 panel.smooth 与 panel.color 叠加在一起？我也尝试了同样的事情，但遇到了困难。（加一） - akrun

如果这是目标的话，你需要要么黑掉cpairs，要么复制cpairs传递给panel的内部函数，并将其提供给upper.panel或lower.panel。 - IRTFM