在R语言中移除包含至少一个2的数据框列

问题背景 #

你有如下原始数据框：

g1 g2 g3 g4 g5
2  0  1  0  1
2  1  1  0  1
2  1  1  2  1

需要移除所有包含至少一个2的列，得到目标数据框：

g2 g3 g5
0  1  1
1  1  1
1  1  1

解决方案 #

下面提供两种主流数据分析工具的实现方法，按需选择：

1. R语言实现

基础R方法（无需额外包）

用基础函数就能快速完成筛选：

# 构造原始数据框
df <- data.frame(
  g1 = c(2, 2, 2),
  g2 = c(0, 1, 1),
  g3 = c(1, 1, 1),
  g4 = c(0, 0, 2),
  g5 = c(1, 1, 1)
)

# 筛选不包含2的列
df_filtered <- df[, !sapply(df, function(col) any(col == 2))]
print(df_filtered)

逻辑说明：sapply遍历每一列，用any(col == 2)检查该列是否存在值为2的元素，返回一个布尔向量；取反后作为列索引，保留符合条件的列。

dplyr包方法（更简洁的管道风格）

如果你习惯用dplyr的链式语法：

library(dplyr)

df_filtered <- df %>%
  select(where(~!any(.x == 2)))

逻辑说明：where函数接收一个判断条件，直接筛选出所有不包含2的列。

2. Python Pandas实现

import pandas as pd

# 构造原始数据框
df = pd.DataFrame({
    'g1': [2, 2, 2],
    'g2': [0, 1, 1],
    'g3': [1, 1, 1],
    'g4': [0, 0, 2],
    'g5': [1, 1, 1]
})

# 筛选不包含2的列
df_filtered = df.loc[:, ~df.isin([2]).any(axis=0)]
print(df_filtered)

逻辑说明：df.isin([2])生成布尔矩阵标记值为2的位置，any(axis=0)按列检查是否存在匹配项；取反后用loc筛选出符合条件的列。

内容的提问来源于stack exchange，提问作者chippycentra