如何在R语言中对字符串执行多模式批量替换？

你当前用mapply会对原始文本单独执行每一条替换规则，因此得到三个独立的结果。要实现所有规则依次作用于文本的累积替换，可以用以下两种方法：

方法1：使用Reduce函数（函数式风格） #

Reduce会自动把前一次替换的结果作为下一次的输入，完成累积替换流程：

library(data.table)

# 定义替换规则表
subst <- fread(c("
                 regex         ; replacement
                 abc\\w*\\b    ; alphabet
                 red           ; color
                 \\d+          ; number
                 ")
             , sep = ";"
             )

text <- c("abc 24 red bcd")

# 累积执行所有替换规则
final_text <- Reduce(function(current, idx) {
  gsub(subst$regex[idx], subst$replacement[idx], current, perl = TRUE)
}, seq_len(nrow(subst)), init = text)

print(final_text)
# 输出: [1] "alphabet number color bcd"

方法2：使用循环（直观易懂） #

用普通for循环依次应用每条规则，逻辑更直白：

library(data.table)

subst <- fread(c("
                 regex         ; replacement
                 abc\\w*\\b    ; alphabet
                 red           ; color
                 \\d+          ; number
                 ")
             , sep = ";"
             )

text <- c("abc 24 red bcd")

final_text <- text
for (i in seq_len(nrow(subst))) {
  final_text <- gsub(subst$regex[i], subst$replacement[i], final_text, perl = TRUE)
}

print(final_text)
# 输出: [1] "alphabet number color bcd"

原理说明 #

两种方法的核心逻辑一致：从原始文本出发，按顺序应用每一条替换规则：

1. 先匹配abc\w*\b，将abc替换为alphabet，得到alphabet 24 red bcd
2. 接着匹配red，替换为color，得到alphabet 24 color bcd
3. 最后匹配\d+，将24替换为number，得到最终结果

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