r - 如何沿列拆分数据框，例如每第 n 列？

Question

假设我正在使用以下数据框:

Mydata <- data.frame(X1 = c(1,2,3,4,5,6,7,8,9,10),X2 = c(1,3,1,1,1,5,1,1,8,1),
                     X3 = c(1,2,3,4,5,6,7,8,9,10),X4 = c(1,3,1,1,1,5,1,1,8,1),
                     X5 = c(1,2,3,4,5,6,7,8,9,10),X6 = c(1,3,1,1,1,5,1,1,8,1),
                     X7 = c(1,2,3,4,5,6,7,8,9,10),X8 = c(1,3,1,1,1,5,1,1,8,1),
                     X9 = c(1,2,3,4,5,6,7,8,9,10),X10 = c(1,3,1,1,1,5,1,1,8,1),
                     X11 = c(1,2,3,4,5,6,7,8,9,10),X12 = c(1,3,1,1,1,5,1,1,8,1))

我想将此数据帧拆分为三个单独的数据帧，其中一个数据帧中的列 X1 ~ X4，第二个中的 X5 ~ X8 和 X9 ~ X12。我将如何对此进行编码以对任意数量的列继续这种模式？

Answer 1

拆分 Mydata每 4 列。我们可以明确使用 use split.default :

split.default(Mydata, rep(1:3, each = 4))

The "default" method can split a data frame by columns .只需根据需要设置分组变量。

对于平衡分组， gl很方便(见 ?gl)。我们可以使用 gl(3, 4)而不是 rep(1:3, 4)在上面，避免了从“整数”到“因子”的类型转换。

一般情况下，使用 gl(ncol(Mydata) / n, n)对于“每 n 列”( n 必须除以 ncol(Mydata) )。