ฉันมีเมทริกซ์ข้อมูลที่เรียกว่า Scores.csv ซึ่งมีลักษณะดังนี้:
ID score age
1 23 12
1 50 16
2 25 13
2 67 16
ฉันใช้รหัสต่อไปนี้:
scores<-read.table("scores.csv",sep=",", header=T)
interaction.plot(scores$age,scores$id, scores$score, xlab="age",ylab="score", legend=F)
วิธีนี้ใช้ได้ดีหากอายุของ ID ทั้งหมดเท่ากัน (12 และ 16 สำหรับทั้งคู่) แต่เมื่อสิ่งเหล่านี้ต่างกัน ฉันจะได้รับพล็อตสปาเก็ตตี้ที่ว่างเปล่า
เพื่อความสนุก นี่คือ ggplot2
ตรวจสอบให้แน่ใจว่าคุณใช้ data.frame ไม่ใช่ data.table
library("ggplot2")
df <- data.frame(ID=c(1,1,2,2,3,3), Score=c(23,50,25,67,22,55), Age=c(12,16,13,16,12,17))
ggplot(df,aes(x=Age,y=Score,
group=ID,color=factor(ID)))+
geom_point()+geom_line()
และขัดแตะ (ekstroem สมควรได้รับเครดิตสำหรับอันนี้)
library(lattice); xyplot(Score ~ Age, group=ID, data=df, type="l")
ฉันใช้ความสวยงามเริ่มต้นสำหรับแปลงนี้ คุณอาจต้องการปรับแต่งการเพิ่มพารามิเตอร์อื่นๆ
library(lattice); xyplot(Score ~ Age, group=ID, data=df, type="l")จะให้สิ่งที่คุณต้องการหรือไม่? - person ekstroem schedule 25.11.2015