3

検討

ext <- data.frame(cond = rep(c('a', 'b'), each = 2), dat = runif(4) )

私が欲しい

exw <- unstack(ext, dat ~ cond)

しかし、私は(教育目的で)dcast()inでそれをやりたいと思っています。reshape2これは可能ですか?

4

1 に答える 1

5

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
于 2012-11-19T16:13:19.517 に答える