使用不具有聚合功能的Reshape2在R中将DF从长到宽重塑

Question

我使用的数据中的一项常见任务是将客户端数据从长整形重塑到宽整形。 我有一个使用下面概述的Reshape来执行此操作的过程，该过程基本上会创建附加了数字索引的新（但未修改）列。 就我而言，我不想对数据进行任何修改。 我的问题是，由于我经常将reshape2用于其他操作，因此如何使用dcast做到这一点？ 例如，似乎不需要通过id来融合示例数据，但是我不确定如何扩展它。 在下面的示例中，谁能在reshape2中提供代码以产生与“宽”相当的框架？

谢谢。

例

date_up   <- as.numeric(as.Date("1990/01/01"))
date_down <- as.numeric(as.Date("1960/01/01"))
ids <- data.frame(id=rep(1:1000, 3),site=rep(c("NMA", "NMB","NMC"), 1000))
ids <- ids[order(ids$id), ]
dates <-  data.frame(datelast=runif(3000, date_down, date_up),
          datestart=runif(3000, date_down, date_up),
          dateend=runif(3000, date_down, date_up),
          datemiddle=runif(3000, date_down, date_up))
dates[] <- lapply(dates[ , c("datestart", "dateend", "datemiddle")], 
             as.Date.numeric, origin = "1970-01-01")
df <- cbind(ids, dates)

# Make a within group index and reshape df
df$gid <- with(df, ave(rep(1, nrow(df)), df[,"id"], FUN = seq_along))
wide <- reshape(df, idvar = "id", timevar = "gid", direction = "wide")

Answer 1

我们可以使用dcast的data.table ，它可以使用多个value.var列。 转换'data.frame'到'data.table'（ setDT(df)使用dcast与式和value.var指定。

library(data.table)
dcast(setDT(df), id~gid, value.var=names(df)[2:6])

注： data.table方法会更快相比reshape2