在 R 中将 data.frame 切割成唯一的两半

Question

我想将下面我的data.frame 中的列（一个玩具示例）分组为 2 个大小相同的半部分。但我想获得所有可能的 unique 半（每一半 = 一个单独的data.frame）。

例如，在前半部分，我们可能有 [q1,q2,q3 vs. q4,q5,q6]，在后半部分我们可能有[q1,q4,q3 vs. q2,q5,q6]，在第三个可能的一半中，我们可能有 [q1,q3,q6 vs. @ 987654338@,q4,q5], ...（每 3 列变成一个新的data.frame）。

我的理解是最终输出必须存储为结果data.frames 的list。这可以在R 中实现吗？

dat <- data.frame(q1=1:5, q2=5:1, q3=2:6, q4=6:2, q5=1:5, q6 =2:6)

Answer 1

我们可以使用combn 来创建所有可能的列号组合，一次取 3 个。使用组合对数据框进行子集化。

combn(seq_along(dat), ncol(dat)/2, function(x) 
         list(dat[, x], dat[, -x]), simplify = FALSE)

每个列表的长度为 2，具有相等的一半数据帧。