r - 将 cbinded data.frames 分离为 R 中的原始 data.frames

Question

假设我只能访问下面的cbinded data.frame r。因为 ing 之前原来的 data.frames 里面的变量名cbind是一样的，那是不是可以分离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

标签： rlistfunctionloopsdataframe

Answer 1

如果我们将它保存在 a listand thencbind中，则有一种识别方法

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