如何用tidyverse递归应用函数返回单一结果而非结果向量？

问题场景 #

当你想用stringr包的str_replace()在同一个字符串上完成多组替换时，比如把"a1X_"里的"1"换成"0"、"a"换成"A"，如果写出这样的代码：

library(stringr)
str_replace(string="a1X_", pattern=c("1","a"), replacement=c("0", "A"))

你会得到结果c("a0X_", "A1X_")，而不是预期的"A0X_"。

问题原因 #

str_replace()的向量化逻辑是将单个字符串与每组pattern-replacement分别配对执行单次替换，而非在同一个字符串上依次完成所有替换操作。当string长度为1，pattern和replacement为长度2的向量时，会触发循环回收，相当于分别执行：

str_replace("a1X_", "1", "0")  # 得到"a0X_"
str_replace("a1X_", "a", "A")  # 得到"A1X_"

最终返回这两个结果组成的向量。

解决方法 #

方法1：用str_replace_all()结合命名向量（简单替换场景） #

str_replace_all()支持传入命名向量作为替换规则，会在同一个字符串上完成所有替换：

str_replace_all("a1X_", c("1" = "0", "a" = "A"))
# 输出："A0X_"

注意：如果替换规则存在优先级（比如某个pattern包含另一个），需要调整命名向量的顺序，因为str_replace_all()会按向量顺序执行替换。

方法2：用purrr::reduce()按顺序执行替换（复杂/有序替换场景） #

如果需要严格控制替换顺序，或者替换逻辑是自定义函数，可以用purrr包的reduce()函数，将每组替换依次作用在字符串上：

library(purrr)

# 定义按顺序的替换规则
replace_steps <- list(
  list(pat = "a", rep = "A"),
  list(pat = "1", rep = "0")
)

# 依次执行替换
reduce(replace_steps, function(current_str, step) {
  str_replace(current_str, step$pat, step$rep)
}, .init = "a1X_")
# 输出："A0X_"

内容的提问来源于stack exchange，提问作者Søren ONeill