使用reshape2在R中简单重塑会导致错误

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