我正在尝试在R中绘制纵向数据。我的数据框具有以下形式:
参与者ID组S1 S2 S3 S4 S5 S6 S7 S8
1 ctrl 14.00 14.00 13.00 13.00 7.00 8.00 4.00 1.00
2药物2.00 13.00 13.00 16.00 14.00 6.00 6.00 6.00
3 ctrl 27.00 28.00 29.00 35.00 30.00 17.00 17.00 17.00 18.00
4药物17.00 14.00 8.00 15.00 14.00 5.00 16.00
5种药物8.00 2.00 29.00 27.00 8.00 6.00 7.00 7.00
....
我有8个时间点(“ S”)。我想要一个图形,其中有两条线代表各组,两条线代表跨时间点(从S1到S8)的度量演变。我试图使用plot.ts(My_data [,3:10]),但是通过此命令,我得到了与单个时间点相对应的单个图形。有人有其他建议吗?
YIDA
最好的方法是使用lattice
软件包,该软件包将允许您检查每个主题的个体生长曲线。但是,您首先需要将数据重整为长格式。
df<-structure(list(participant_ID = 1:5, group = c("ctrl", "drug",
"ctrl", "drug", "drug"), S1 = c(14L, 2L, 27L, 17L, 8L), S2 = c(14L,
13L, 28L, 14L, 2L), S3 = c(13L, 13L, 29L, 8L, 29L), S4 = c(13L,
16L, 35L, 15L, 27L), S5 = c(7L, 14L, 30L, 14L, 8L), S6 = c(8L,
6L, 17L, 5L, 6L), S7 = c(4L, 6L, 17L, 16L, 7L), S8 = c(1L, 6L,
18L, 13L, 7L)), class = "data.frame", row.names = c(NA, -5L))
library(reshape2)
df2<-melt(data=df,id.vars = c("participant_ID","group"))
library(lattice)
xyplot(data=df2, value~variable |participant_ID)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句