ฉันจะเพิ่มเส้นการถดถอยลงในเมทริกซ์ Scatterplot ได้อย่างไร

ฉันจะเพิ่มเส้นการถดถอยลงในเมทริกซ์ Scatterplot ได้อย่างไร ฉันมีสคริปต์ต่อไปนี้:

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

ฉันจะเพิ่มเส้นถดถอยแบบเส้นโค้งหรือแบบลาดลงใน Scatterplots เหล่านี้โดยคงไว้ในรูปแบบเมทริกซ์ได้อย่างไร ขอบคุณ!


rstudio r console regression scatter-plot
person bubbalouie    schedule 28.11.2014    source แหล่งที่มา

คำตอบ (1)


arrow_upward
5
arrow_downward

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 ดังนั้นการแสดงว่าคุณทำการดำเนินการนั้นไม่มีประโยชน์ในการทำความเข้าใจว่าเกิดอะไรขึ้น (เกินกว่าที่ทราบข้างต้นว่าผลลัพธ์คือ dataframe) คุณสามารถใช้ตัวอย่างจากหน้าความช่วยเหลือของฟังก์ชันที่คุณถามได้

person IRTFM    schedule 28.11.2014
comment
มีวิธีซ้อนทับ panel.smooth กับ panel.color หรือไม่ ฉันก็ทำเหมือนกันแต่กลับสะดุดล้ม (บวกหนึ่ง) - person akrun; 28.11.2014
comment
หากนั่นคือเป้าหมาย คุณจะต้องแฮ็ก cpairs หรือสร้างฟังก์ชันภายในซ้ำที่ cpair ส่งผ่านไปยัง panel จากนั้นมอบให้กับ upper.panel หรือ lower.panel - person IRTFM; 28.11.2014