如何在R语言的gsub中使用函数实现高效字符串替换？

现有如下R代码，定义了包含占位符的文本和对应的映射键值对：

txt <- "{a} is to {b} what {c} is to {d}"
key <- c(a='apple', b='banana', c='chair', d='door')
fun <- function(x) key[x]

需求是将txt中的{a}、{b}等占位符，按照key的映射快速替换为对应值，最终得到：

"apple is to banana what chair is to door"

已知通过循环调用gsub可以实现，但当txt和key数据量极大时，该方法效率不足：

for (v in names(key)) txt <- gsub(sprintf('{%s}',v), fun(v), txt, fixed = TRUE)
txt
# [1] "apple is to banana what chair is to door"

尝试过以下两种方法均失败：

gsub(sprintf('{%s}',names(key)), key, fixed = TRUE) # 无法正常工作
gsub('\\{(a|b|c|d)\\}', fun(...), txt, fixed = TRUE) # 无法正常工作

高效实现方式 #

方法1：使用stringr包的str_replace_all

stringr的str_replace_all支持直接传入命名向量作为替换规则，一次完成所有替换，效率远高于循环：

library(stringr)

# 构造匹配模式的命名向量，键是占位符（比如"{a}"），值是替换内容
replace_map <- setNames(key, sprintf("{%s}", names(key)))
result <- str_replace_all(txt, replace_map)
result
# [1] "apple is to banana what chair is to door"

方法2：Base R原生高效实现（无需额外包）

利用gregexpr匹配所有占位符，再通过regmatches批量替换：

# 匹配所有{xxx}格式的占位符
matches <- gregexpr("\\{[a-z]+\\}", txt)
# 提取匹配到的内容，去掉首尾的{}，然后从key中取值
replace_vals <- key[sub("^\\{|\\}$", "", regmatches(txt, matches)[[1]])]
# 批量替换
regmatches(txt, matches) <- list(replace_vals)
txt
# [1] "apple is to banana what chair is to door"

这两种方法都是单次扫描文本完成所有替换，避免了循环中多次修改文本的开销，在数据量较大时效率提升明显。

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