我知道这里有很多次在“长到宽”的标题下被问过,但我遇到了一个情况,我有两个重复测量的值变量。
id sex time score1 score2
1 subject 1 m Time1 -0.20926263 0.2499310
2 subject 2 m Time1 0.17147511 3.2708905
3 subject 3 m Time1 -0.82619584 0.5993917
4 subject 4 f Time1 -0.95568823 4.4729726
5 subject 5 f Time1 -2.29939525 8.0101254
6 subject 1 m Time2 -0.37914702 3.6387589
7 subject 2 m Time2 0.26759909 4.9027533
8 subject 3 m Time2 0.07727621 2.1848642
9 subject 4 f Time2 -0.08613439 5.8747074
10 subject 5 f Time2 -0.02743044 4.3963938
11 subject 1 m Time3 0.07176053 3.7959496
12 subject 2 m Time3 0.46463917 5.2494579
13 subject 3 m Time3 -0.68764512 2.2639503
14 subject 4 f Time3 -0.56670061 2.3361909
15 subject 5 f Time3 1.70731774 5.8345116
重现数据框(DF)的快速方法。
DF<-data.frame(id=rep(paste("subject", 1:5, sep=" "), 3),
sex=rep(c("m","m","m","f","f"), 3),
time=c(rep("Time1",5), rep("Time2",5), rep("Time3",5)),
score1=rnorm(15), score2=abs(rnorm(15)*4))
我可以使用基础中的reshape
函数解决两个测量重复测量变量的长到宽的问题,但我希望得到plyr
或reshape2/1
答案,因为这些包通常对我来说更直观。如果您有任何其他解决方案,请继续提供,因为学习会很棒。
来自基地的解决方案:
wide <- reshape(DF, v.names=c("score1", "score2"), idvar="id",
timevar="time", direction="wide")
wide
答案 0 :(得分:12)
我认为这样做会:
library(reshape)
m <- melt(DF)
最简单,但时间和分数与您的示例的顺序相反(如果重要)
cast(m,id+sex~...)
或更明确地说:
cast(m,id+sex~variable+time)
你可以把它减少到单行:
recast(DF,id+sex~...)
如果您愿意,可以使用较新的reshape2
包而不是reshape
,将cast
替换为dcast
(recast
中包含的reshape2
版本1}}没有给出所需的结果。)
答案 1 :(得分:2)
dcast
函数包含在更新版本的&#34; data.table&#34;可以处理这样的问题而无需先输入melt
数据。因此,这将是一种更有效的使用方法。
library(data.table)
dcast(as.data.table(DF), id + sex ~ time, value.var = c("score1", "score2"))
## id sex score1_Time1 score1_Time2 score1_Time3 score2_Time1 score2_Time2 score2_Time3
## 1: subject 1 m 0.78213630 -0.1557955 -0.10278773 1.5771598 1.013447 1.4583278
## 2: subject 2 m 0.07456498 -1.4707524 0.38767161 0.2372536 2.787854 3.0741317
## 3: subject 3 m -1.98935170 -0.4781501 -0.05380504 4.4001015 2.226653 0.4493848
## 4: subject 4 f 0.61982575 0.4179416 -1.37705956 3.0527030 2.755023 3.5244309
## 5: subject 5 f -0.05612874 1.3586796 -0.41499456 0.6580944 2.829981 1.5924235