Преобразование данных: строки укладки

Question

Я пытаюсь преобразовать кадр данных определенным способом для выполнения некоторого анализа. У меня есть кадр данных, как это:

A <- data.frame(Date=c("A","A","B","B"), 
     Var1=c("A","B","A","B"), Var2=c(1,2,3,4), 
     Var3=c(5,6,7,8)) 

И я хотел бы получить:

Result <- data.frame(Date=c("A","B"), 
    Var4=c(1,2), Var5=c(5,6), 
    Var6=c(3,4), Var7=c(7,8)) 

Я пытался с некоторыми функциями в пакете перекроить, но я не мог этого сделать. Некоторые предложения?

Answer 1

Мы можем попробовать

cbind(Date= unique(A$Date), do.call(cbind, split(A[-(1:2)], A$Date))) 

Или

library(data.table) 
setDT(A)[, as.list(unlist(.SD)) , .(Date=Var1), .SDcols = Var2:Var3]