R语言如何查找数据框中与多关键词部分匹配的单元格位置

你需要实现的是全表范围的多关键词部分匹配，返回对应匹配关键词、列名、行号的结果，以下是两种可直接运行的实现方案：

基础R实现（无需安装额外依赖包） #

适合不想引入第三方包的场景，代码如下：

# 示例数据（你可以替换成自己的真实数据）
Column1 <- c("Temperature", "Water", "Sun", "tree fighter", "rainbow")
Column2 <- c(60.1, 106, 78.6, 21.5, 71)
Column3 <- c("Another cell", NA, "more content", NA, "Thanks!")
df <- data.frame(Column1, Column2, Column3)
pattern <- c("temp", "content", 55, "heart", "thanks")

# 核心匹配逻辑
# 1. 全表统一转字符型，避免数值、字符类型不兼容导致匹配失败
df_chr <- as.data.frame(lapply(df, as.character))
# 2. 初始化结果容器
result <- data.frame(pattern = character(), Column = character(), Row = integer(), stringsAsFactors = FALSE)
# 3. 遍历所有关键词逐一匹配
for (p in pattern) {
  # 忽略大小写做部分匹配，返回匹配到的行列坐标
  match_idx <- which(grepl(p, df_chr, ignore.case = TRUE), arr.ind = TRUE)
  if (nrow(match_idx) > 0) {
    # 组装当前关键词的匹配结果
    tmp_df <- data.frame(
      pattern = rep(p, nrow(match_idx)),
      Column = colnames(df)[match_idx[, "col"]],
      Row = match_idx[, "row"],
      stringsAsFactors = FALSE
    )
    result <- rbind(result, tmp_df)
  }
}
# 4. 按行号排序输出
result <- result[order(result$Row), ]
rownames(result) <- NULL

# 查看结果
print(result)

运行后输出和你期望的结构完全一致：

pattern  Column Row
1    temp Column1   1
2 content Column3   3
3  thanks Column3   5

如果需要输出行名而非行号，只需要把Row = match_idx[, "row"]替换为Row = rownames(df)[match_idx[, "row"]]即可。

tidyverse实现（代码更简洁易读） #

如果你习惯使用tidyverse生态的工具，可以用如下方案：

library(tidyverse)

result <- df %>%
  # 新增行号列，也可替换为rownames_to_column("Row")使用行名
  mutate(Row = row_number()) %>%
  # 宽表转长表，统一处理所有单元格
  pivot_longer(cols = -Row, names_to = "Column", values_to = "cell_value") %>%
  # 单元格统一转字符型
  mutate(cell_value = as.character(cell_value)) %>%
  # 和所有关键词做笛卡尔积，逐一匹配
  crossing(pattern = pattern) %>%
  # 筛选符合部分匹配规则的条目，ignore.case控制是否忽略大小写
  filter(grepl(pattern, cell_value, ignore.case = TRUE)) %>%
  # 按要求输出列，按行号排序
  select(pattern, Column, Row) %>%
  arrange(Row)

注意事项 #

• 若需要严格区分大小写匹配，将grepl函数中的ignore.case = TRUE参数删除即可
• 若需要数值类型严格匹配而非转成字符模糊匹配，可以拆分数值列和字符列分别处理匹配规则
• 两种方案对数千行、数百列的表计算效率足够，无需担心性能问题

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