3
ext <- data.frame(cond = rep(c('a', 'b'), each = 2), dat = runif(4))
我想
exw <- unstack(ext, dat ~ cond)
但我想用dcast()
做到在reshape2
(用于教育的目的)。这可能吗?
ext <- data.frame(cond = rep(c('a', 'b'), each = 2), dat = runif(4))
我想
exw <- unstack(ext, dat ~ cond)
但我想用dcast()
做到在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