如何使用stringr包通过变量程序化实现字符串替换？

你遇到的核心问题是：直接用c(value1 = "m", value2 = "n")创建替换向量时，向量的名字是字符串"value1"和"value2"，而不是变量value1、value2中存储的实际值（"D"和"C"）。这就导致str_replace_all找不到要匹配的目标字符串，自然无法完成替换。

我们需要动态构建一个命名向量，让向量的名字是value1和value2的取值，对应的值是替换后的内容。这里有两种简洁的实现方式：

方法1：使用dplyr::set_names构建替换向量 #

这是最直观的方式，通过set_names函数给替换值指定对应的匹配字符串：

# 先修正你的数据框创建代码（原写法有语法错误）
df <- tibble::tribble(
  ~A, ~B,
  "C", "G",
  "D", "H",
  "E", "I",
  "F", "J"
)
value1 <- "D"
value2 <- "C"

# 动态替换的正确代码
df %>% mutate(X = A %>% str_replace_all(set_names(c("m", "n"), c(value1, value2))))

set_names(c("m", "n"), c(value1, value2))会生成和c("D" = "m", "C" = "n")完全一致的命名向量，完美实现你要的程序化替换。

方法2：使用rlang的拼接语法（适合复杂场景） #

如果后续需要扩展更多替换规则，或者想更灵活地控制命名，可以用rlang的非标准求值语法：

# 构建动态替换列表
replacements <- rlang::list2(!!value1 := "m", !!value2 := "n")

# 执行替换
df %>% mutate(X = A %>% str_replace_all(replacements))

这里!!value1 := "m"的作用是把value1的实际取值（"D"）作为列表的名字，对应值为"m"，同理处理value2，最终生成的替换规则和手动写的完全一致。

运行上述代码后，你会得到和df %>% mutate(X = A %>% str_replace_all(c("D" = "m", "C" = "n")))完全相同的输出：

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