如何在R语言中实现多字符串模式替换且不覆盖已替换内容

问题需求 #

需要将国际象棋代数记谱法中的文件字母（a、b、c、d、e、f、g、h）转换为北约音标字母，且替换后的内容不会被二次修改。原始记谱字符串如下：

notation <- "1.d4 Nf6 2.c4 e6 3.g3 d5 4.Bg2 Be7 5.Nf3 0-0 6.0-0 dxc4 7.Qc2 a6 8.Qxc4 b5 9.Qc2 Bb7 10.Bd2 Ra7 "

预期结果示例："1.delta4 Nfoxtrot6 2.charlie4 echo6 3.golf3 delta5 ..."

现有方法的问题 #

常规逐次gsub或stri_replace_all_fixed（顺序替换）会出现二次替换冲突：比如将d替换为delta后，后续替换e时会把delta中的e换成echo，进而h替换又会修改echo中的h，最终得到混乱的结果。

解决方案 #

以下两种方法均通过一次性匹配原始目标字符并批量替换，避免二次修改问题：

方法1：使用stringr包的str_replace_all #

stringr的str_replace_all支持传入命名向量作为替换规则，会一次性扫描原始字符串完成所有匹配替换，不会处理已替换的内容。

library(stringr)

# 定义替换映射的命名向量
replace_map <- c(
  "a" = "alpha", "b" = "bravo", "c" = "charlie",
  "d" = "delta", "e" = "echo", "f" = "foxtrot",
  "g" = "golf", "h" = "hotel"
)

# 执行无冲突替换
result <- str_replace_all(notation, replace_map)
cat(result)

方法2：使用gsubfn包的gsubfn函数 #

gsubfn允许通过正则表达式匹配所有目标字符，并用列表映射完成一次性替换：

library(gsubfn)

# 定义替换映射列表
replace_list <- list(
  a = "alpha", b = "bravo", c = "charlie",
  d = "delta", e = "echo", f = "foxtrot",
  g = "golf", h = "hotel"
)

# 匹配所有目标字符并替换
result <- gsubfn("[abcdefgh]", replace_list, notation)
cat(result)

原理说明 #

上述两种方法的核心是：仅对原始字符串中的目标字符进行匹配替换，不会对替换后生成的新字符串内容再次扫描匹配，从根本上避免了替换冲突问题，比逐字符遍历构建新字符串更符合R语言的向量化风格。

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