R语言中如何获取数据框的列互补子集？

嘿，我完全懂你的需求——你已经从总数据框example里筛选出了子集data1，现在想要得到剩下的列组成的互补子集data2对吧？你之前尝试用setdiff()失败，是因为这个函数的设计初衷并不是用来筛选数据框的列哦，它更适合处理向量或者行级别的差集比较，当两个数据框列数不同时自然就会报错啦。

下面给你几种简单靠谱的解决方案，都能完美适配你的例子：

方法1：利用列名的差集筛选 #

这种方法最直观，先拿到总数据框的所有列名，减去data1的列名，再用这个结果去提取example对应的列：

# 获取不在data1中的列名，再筛选example的列
data2 <- example[, setdiff(colnames(example), colnames(data1))]

这个方法的好处是不依赖列的位置，哪怕后续列的顺序变了也能正常工作。

方法2：通过列索引反选 #

既然你是用列的筛选条件（sum_of_example < 110）得到的data1，那可以直接对这个筛选结果取反：

# 先保存data1的列索引
data1_col_indices <- which(sum_of_example < 110)
# 用负号反选这些列，得到互补子集
data2 <- example[, -data1_col_indices]

这种方法运行速度快，适合处理大型数据框。

方法3：用dplyr包的tidy风格写法 #

如果你平时习惯用tidyverse系列工具，用dplyr::select()会更简洁：

library(dplyr)
# 用-all_of()排除data1的列
data2 <- example %>% select(-all_of(colnames(data1)))

这种写法可读性强，和其他tidyverse操作兼容性更好。

你可以随便选一种试试，拿你的例子测试的话，这三种方法都能得到正确的data2，也就是example中除了data1列之外的所有列~

备注：内容来源于stack exchange，提问作者Camillionnaire