検討
ext <- data.frame(cond = rep(c('a', 'b'), each = 2), dat = runif(4) )
私が欲しい
exw <- unstack(ext, dat ~ cond)
しかし、私は(教育目的で)dcast()
inでそれをやりたいと思っています。reshape2
これは可能ですか?
dcast
識別行 ID があることを伝える必要があります。
例えば:
dcast(ext, 1:2~cond)
1:2 a b
1 1 0.5706567 0.4360110
2 2 0.0305229 0.7032459
そして、より一般的に:
ext$id <- sequence(rle(as.character(ext$cond))$lengths)
dcast(ext, id~cond, value.var="dat")
id a b
1 1 0.5706567 0.4360110
2 2 0.0305229 0.7032459