在R中使用shape2进行简单的重塑会导致错误

Question

我正试图做一个简单的reshape，使test看起来像这样:

a_estimate, a_tstat, b_estimate, b_tstat
1,          3,       2,          4

这是我尝试的代码:

require(reshape2)
test = data.frame(cf=c("a", "b"), estimate=c(1,2), tstat=c(3,4))
m = melt(test, id.vars="cf")
d = dcast(m, formula = . ~ cf + variable)
Error: nrow(res$labels[[1]]) == nrow(data) is not TRUE

这是怎么回事?

> sessionInfo()    
R version 2.15.2 (2012-10-26)
Platform: x86_64-unknown-linux-gnu (64-bit)
locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=C                 LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
 [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
attached base packages:
 [1] stats     graphics  grDevices utils     datasets  methods   base     
other attached packages:
 [1] reshape2_1.2.2
loaded via a namespace (and not attached):
 [1] plyr_1.8      stringr_0.6.2

Answer 1

也许你的问题是，你有有效的零"行"变量剩下(即，你不希望任何东西在LHS的铸造公式)。这种解决方法(添加一个虚拟变量)可能会有所帮助?

d = dcast(cbind(x=1,m), formula = x ~ cf + variable)

Answer 2

这是基本的R方式，为了好玩…

reshape(transform(test, id=1), idvar='id', timevar='cf', direction='wide')[-1]
#   estimate.a tstat.a estimate.b tstat.b
# 1          1       3          2       4