Разделение cbinded data.frames на исходные data.frames в R

Question

Предположим, у меня есть доступ только к cbind ed data.frame r ниже. Поскольку имена переменных в исходных data.frames перед cbind ing одинаковы, возможно ли разделить r на исходные data.frames?

Примечание. Это просто игрушечный пример, функциональное решение приветствуется.

# Original data.frames:

c1 <- data.frame(study.name = c(1,1,2,3), mod.s=c(3,3,1,2), mod.g=c(1,1,3,1))
c2 <- data.frame(study.name = c(1,1,2,3), mod.s=c(3,3,2,1), mod.g=c(1,2,3,2))

r <- cbind(c1, c2[-1]) # The only available cbined data.frame

Answer 1

Если мы храним его в list, а затем cbind, есть способ идентификации

lst1 <- list(c1, c2[-1])
r <- do.call(cbind, lst1)
split.default(r,  rep(seq_along(lst1), sapply(lst1, ncol)))