基于其他列替换tibble中字符串列的多个子串

要实现把tibble字符串列中指定词汇（支持大小写不敏感）替换为对应列的数值，这里提供两种可靠的实现方式：

方法一：dplyr逐行处理 + stringr正则替换 #

这种方法适合熟悉tidyverse的用户，逻辑清晰且易扩展：

library(dplyr)
library(stringr)

vars <- c("Yes", "No", "Maybe")

my_tib <- tribble(
  ~Yes, ~No, ~Maybe, ~thestring,
  1,     0,   2    , "Sometimes Yes is YES",
  1,     0,   3    , "Sometimes Yes others is No or Maybe",
  1,     0,   4    , "Sometimes Yes while Maybe...",
  1,     0,   5    , "Sometimes Yes is Yes and No and maybe",
)

result <- my_tib %>%
  rowwise() %>%
  mutate(
    # 生成当前行的替换映射：词汇 -> 对应数值（转字符）
    replace_map = set_names(
      as.character(c_across(all_of(vars))),
      vars
    ),
    # 执行替换：匹配单词边界+忽略大小写，替换为对应数值
    thestring = str_replace_all(
      thestring,
      regex(str_c("\\b(", str_c(names(replace_map), collapse = "|"), ")\\b"), ignore_case = TRUE),
      function(match) replace_map[str_to_title(match)]
    ),
    # 清理临时列
    replace_map = NULL
  ) %>%
  ungroup()

print(result)

核心细节： #

• rowwise()：强制逐行计算替换规则，保证每行取自己对应列的数值
• c_across(all_of(vars))：精准提取当前行中vars指定列的数值
• \\b：单词边界，避免部分匹配（比如不会误替换"Yesterday"中的"Yes"）
• ignore_case = TRUE：覆盖所有大小写变体（如"YES""maybe"都能被匹配）
• str_to_title(match)：把匹配到的字符串转成标题大小写，和replace_map的键对应

方法二：purrr逐行映射处理 #

如果需要更灵活的自定义逻辑，可以用pmap_chr逐行处理每一行数据：

library(dplyr)
library(purrr)
library(stringr)

result <- my_tib %>%
  mutate(
    thestring = pmap_chr(
      .,
      function(Yes, No, Maybe, thestring, ...) {
        # 构建当前行的替换映射
        replace_vals <- c(Yes = Yes, No = No, Maybe = Maybe)
        # 生成匹配正则：匹配任何大小写的目标词汇（带单词边界）
        pattern <- regex(
          str_c("\\b(", str_c(str_to_lower(vars), collapse = "|"), ")\\b"),
          ignore_case = TRUE
        )
        # 执行替换
        str_replace_all(thestring, pattern, function(m) as.character(replace_vals[str_to_title(m)]))
      }
    )
  )

print(result)

核心细节： #

• pmap_chr：遍历每一行，把行内的列值作为参数传入自定义函数
• 自定义函数内独立构建替换规则，逻辑完全可控
• 同样用单词边界和忽略大小写保证匹配的准确性

两种方法都能得到你想要的结果，可根据自己的代码风格选择。

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