如何在R语言中无需重复复制粘贴，对向量连续执行gsub替换？

问题分析 #

你需要对向量依次执行多轮字符串替换（后续替换基于前一轮结果），避免重复编写gsub代码。以下是几种可行的优化方案：

方案1：Base R 循环 #

最简单的方法是用循环遍历替换规则，每轮替换基于上一轮的结果：

initNames <- c("A.-.B", "A.B", "A0", "1 2", "AB BC")
toreplace <- c(".-.", ".", "A0", "1 2", "AB BC")
replacements <- c(" - ", " ", "Ao", "1.2", "AB.BC")

newNames <- initNames
for (i in seq_along(toreplace)) {
  newNames <- gsub(toreplace[i], replacements[i], newNames, fixed = TRUE)
}

# 输出结果
newNames
#> [1] "A - B" "A B"   "Ao"    "1.2"   "AB.BC"

方案2：使用purrr::accumulate #

利用purrr::accumulate实现累加式替换，每一步都基于前一步的结果：

library(purrr)

initNames <- c("A.-.B", "A.B", "A0", "1 2", "AB BC")
toreplace <- c(".-.", ".", "A0", "1 2", "AB BC")
replacements <- c(" - ", " ", "Ao", "1.2", "AB.BC")

# accumulate返回所有中间结果，取最后一个元素即为最终结果
result_list <- accumulate(seq_along(toreplace),
                          .init = initNames,
                          ~ gsub(toreplace[.y], replacements[.y], .x, fixed = TRUE))

newNames <- result_list[[length(result_list)]]

# 输出结果
newNames
#> [1] "A - B" "A B"   "Ao"    "1.2"   "AB.BC"

方案3：使用purrr::reduce #

将每个替换规则封装为函数，再用reduce依次应用这些函数到初始向量：

library(purrr)

initNames <- c("A.-.B", "A.B", "A0", "1 2", "AB BC")
toreplace <- c(".-.", ".", "A0", "1 2", "AB BC")
replacements <- c(" - ", " ", "Ao", "1.2", "AB.BC")

# 创建替换函数列表
replace_functions <- map2(toreplace, replacements, 
                          ~ function(x) gsub(.x, .y, x, fixed = TRUE))

# 依次应用所有函数
newNames <- reduce(replace_functions, .init = initNames, ~ .y(.x))

# 输出结果
newNames
#> [1] "A - B" "A B"   "Ao"    "1.2"   "AB.BC"

为什么你的之前尝试失败？ #

1. accumulate使用错误：你将initNames作为遍历对象，而非替换规则的索引，且函数内直接使用原向量而非累加的中间结果，导致仅处理了第一个元素。
2. map2的局限性：map2会对每个替换规则独立应用到原向量，不会基于前一次替换的结果，因此得到的是多轮独立替换的列表，而非连续替换的最终结果。

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