在 R 中將 cbinded 的 data.frames 分離為原始的 data.frames

Question

假設我只能訪問下面的cbind ed data.frame r 。 因為 cbind 之前的原始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

Answer 1

如果我們將它保存在一個list然后cbind ，有一種識別方法

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