拆分应用组合

Question

我有一个很大的列表，并希望应用答案中详述的确切技术：

Create mutually exclusive dummy variables from categorical variable in R

但是，我的数据要大得多，我想将操作拆分，应用并合并到每一行。

这段代码当然不起作用，说明了我要做的事情：

id <- c(1,1,1,1)    
time <- c(1,2,3,4)    
time <- as.character(time)    
unique.time <- as.character(unique(df$time))    
df <- data.frame(id,time)    
df1 <- split(df, row(df))    
sapply(df1, (unique.time, function(x)as.numeric(df1$time == x)))    
z <- unsplit(lapply(df1, row(df)), scale), x)

谢谢！