如何基于列名片段筛选数据框列？优化重复grep的实现方案

1. 合并正则表达式，单次调用grep #

把多个匹配模式用|（逻辑或）连接，一次grep就能完成筛选，无需重复调用：

df <- df1 %>% dplyr::select(grep("x|y|z", names(df1)))

2. 使用dplyr内置的matches()选择器 #

这是更贴合tidyverse风格的写法，直接在select()中传入正则表达式，省去手动提取列名的步骤：

df <- df1 %>% dplyr::select(matches("x|y|z"))

3. 动态处理多个匹配模式（适用于模式存于向量的场景） #

如果目标匹配字符串是动态生成的（比如存储在向量里），可以先将向量合并为正则表达式，再传入matches()：

# 定义目标匹配字符串向量
targets <- c("x", "y", "z")
# 合并成正则表达式
pattern <- paste(targets, collapse = "|")
# 筛选列
df <- df1 %>% dplyr::select(matches(pattern))

4. 更灵活的匹配逻辑：用where()结合grepl #

如果需要自定义复杂匹配规则（比如多条件组合判断），可以用where()配合grepl和any()实现：

targets <- c("x", "y", "z")
df <- df1 %>% 
  dplyr::select(where(~ any(sapply(targets, grepl, x = cur_column()))))

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