如何让str_sub接受str_locate_all多匹配输出并实现向量化替换

针对多字符串多匹配位置的替换需求，无需低效的if-else循环，这里提供两种高效的向量化解决方案：

方案一：结合str_locate_all与str_sub（精准控制替换位置） #

首先修正输入数据格式（原replacements重复命名会被覆盖，需调整为与text1一一对应的列表）：

library(stringr)
text1 <- c("The current year is 2016 and the month is 05", 
           "A following month is 08 with year = 2017", 
           "There are other years.", 
           "The final year will be 2053")
# 替换值列表，每个元素对应text1中对应位置字符串的替换内容，无匹配则为空向量
replacements <- list(c('2022','08'), c('09','2023'), character(0), '3167')

获取每个字符串的匹配位置列表（无需转成大矩阵，保留原分组结构）：

locate_list <- str_locate_all(text1, pattern = '\\d{2,4}')

使用purrr::map2实现逐元素的向量化替换，自动对应每个字符串的匹配位置与替换值：

library(purrr)

result <- map2(text1, locate_list, function(txt, loc) {
  # 匹配当前文本对应的替换值
  reps <- replacements[[match(txt, text1)]]
  if (nrow(loc) > 0) {
    str_sub(txt, loc) <- reps
  }
  txt
})

# 转换为向量格式输出
result <- unlist(result)

运行后得到期望输出：

> result
[1] "The current year is 2022 and the month is 08"
[2] "A following month is 09 with year = 2023"    
[3] "There are other years."                      
[4] "The final year will be 3167"                 

方案二：用gsubfn简化替换逻辑（无需处理位置矩阵） #

如果不需要精准控制位置，仅按匹配顺序替换，gsubfn可以更简洁地实现需求：

library(gsubfn)

# 为每个字符串创建替换迭代器，按匹配顺序返回对应替换值
rep_iter <- lapply(replacements, function(x) {
  idx <- 0
  function(...) {
    idx <<- idx + 1
    x[idx]
  }
})

# 批量替换
result <- mapply(function(txt, fn) {
  gsubfn('\\d{2,4}', fn, txt)
}, text1, rep_iter)

关键说明 #

你之前尝试将str_locate_all的输出转为大矩阵的方式不可行，因为不同字符串的匹配数量不同，转矩阵会丢失每个字符串的匹配分组信息，导致str_sub无法正确对应替换位置。上述两种方案都保留了每个字符串的独立匹配上下文，实现真正的向量化批量处理。

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