R中的意大利面条图，具有不同的测量时间

Question

我有一个名为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＆amp; 16），这样可以正常工作，但是一旦这些不同，我就得到一个空的意大利面条。

Answer 1

只是为了它的乐趣，这里是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")

2

我在此图中使用了默认美学，您可能希望自定义添加其他参数。