R语言如何根据列内任意单元格的值筛选数据框列

这个需求可以直接实现，核心逻辑是先逐列判断是否存在目标值，再通过布尔索引筛选符合要求的列即可，以下是两种常用实现方式：

基础R原生实现 #

无需加载第三方包，直接通过sapply逐列做判断即可：

# 构造示例数据
year = c(1990,1991,1992,1993,1994,1995,1996,1997,1998,1999)
apple = c(1,4,6,8,9,9,2,4,7,4)
orange = c(7,1,5,5,2,1,7,1,3,8)
banana = c(9,9,4,8,1,3,6,7,5,9)
lemon = c(8,3,3,3,2,5,6,7,2,4)
df = data.frame(year,apple,orange,banana,lemon)

# 设置要查找的目标值
target <- 9
# 逐列判断是否存在目标值，返回布尔向量筛选列
df_result <- df[, sapply(df, function(col) any(col == target))]

运行后得到的df_result仅包含apple、banana两列，和预期结果一致。

• 如果数据中存在缺失值NA，把判断语句改为any(col == target, na.rm = TRUE)即可避免NA干扰判断结果
• 如果要匹配多个目标值，把判断条件改为any(col %in% c(值1, 值2))即可

dplyr实现（tidyverse风格） #

如果习惯用tidyverse系列的语法，可以用select配合where选择器实现，写法更简洁：

library(dplyr)

target <- 9
df_result <- df %>% 
  select(where(~ any(.x == target)))

这段代码逻辑和基础R版本完全一致，where()会自动遍历所有列，保留满足判断条件的列。

注意：以上判断是精确匹配数值/文本内容，示例中year列的数值为1990、1991等，均不等于9，因此不会被选中；如果需要做部分匹配（比如文本中包含某个字符），把判断条件换成any(grepl("匹配规则", col))即可。

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