ojiva - ¿Cómo agrego líneas de regresión a una matriz de diagrama de dispersión?

ojiva en r

Question

¿Cómo hago para agregar líneas de regresión a una matriz de diagrama de dispersión? Tengo el siguiente script:

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

¿Cómo puedo agregar líneas de regresión inclinadas o inclinadas a estas diagramas de dispersión mientras las mantengo en forma de matriz? ¡Gracias!

Answer 1

cpairs es solo una versión coloreada de la función de pairs gráficos básicos, y mirando su código puede ver que acepta el conjunto regular de funciones del panel descrito e ilustrado en ?pairs . Este es un ejemplo reproducible (que el tuyo no es):

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

Debería aprender a publicar un ejemplo que ilustre el problema. No tenemos manera de saber qué hay en ese archivo .csv, por lo que mostrar que hiciste esa operación es inútil para entender lo que está sucediendo (sobre un nivel superior sabiendo que el resultado es un marco de datos). Está bien utilizar ejemplos de las páginas de ayuda de las funciones sobre las que pregunta.