【发布时间】:2012-11-19 15:57:59
【问题描述】:
考虑
ext <- data.frame(cond = rep(c('a', 'b'), each = 2), dat = runif(4) )
我想要
exw <- unstack(ext, dat ~ cond)
但我想在reshape2 中使用dcast()(出于教学目的)。这可能吗?
【问题讨论】:
考虑
ext <- data.frame(cond = rep(c('a', 'b'), each = 2), dat = runif(4) )
我想要
exw <- unstack(ext, dat ~ cond)
但我想在reshape2 中使用dcast()(出于教学目的)。这可能吗?
【问题讨论】:
你必须告诉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
【讨论】: