如何在R中批量循环处理数百个grepl匹配模式？

针对你需要批量检测250个关键词并生成对应二值列的需求，这里提供两种高效实现方式：

方法一：Tidyverse风格（推荐） #

借助dplyr和stringr包实现简洁的批量处理，代码可读性强：

library(tidyverse)

# 第一步：把所有关键词存入一个向量
keywords <- c("word1", "word2", "word3", ..., "word250") # 替换成你的250个关键词

# 第二步：批量生成匹配列并合并到原数据框
df <- df %>%
  mutate(
    !!!set_names(
      map(keywords, ~ as.integer(str_detect(responses, .x))),
      paste0("match_", keywords) # 列名可自定义，比如这里用match_word1格式
    )
  )

如果需要忽略大小写匹配，把str_detect改成str_detect(responses, regex(.x, ignore_case = TRUE))即可。

方法二：基础R实现（无需额外包） #

如果不想加载tidyverse，用基础R的sapply也能快速完成：

# 定义关键词向量
keywords <- c("word1", "word2", ..., "word250")

# 生成匹配结果矩阵
match_matrix <- sapply(keywords, function(x) as.integer(grepl(x, df$responses)))

# 设置列名并合并到原数据框
colnames(match_matrix) <- paste0("match_", keywords)
df <- cbind(df, as.data.frame(match_matrix))

同样，要忽略大小写的话，给grepl加参数ignore.case = TRUE即可。

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