如何避免正则替换覆盖结果？单步实现双替换需求

给定字符串：

a = "in the year 2010-01-01 there was a red dog and in the year 2011-01-01 there was a blue cat"

需求：将字符串中所有2010替换为2011，所有2011替换为2012。

问题分析 #

直接连续调用gsub会出现覆盖问题：

b = gsub("2010", "2011", a)
b = gsub("2011", "2012", b)

第一次替换生成的2011会被第二次替换成2012，最终所有原2010和2011都会变成2012，不符合需求。

临时解决方案（三步中转） #

通过临时标记避免覆盖：

b = gsub("2010", "temp", a)
b = gsub("2011", "2012", b)
b = gsub("temp", "2011", b)

单行实现方案 #

方法1：使用stringr包（推荐）

stringr的str_replace_all支持通过命名向量定义多组替换规则，且会一次性完成所有匹配，不会出现互相覆盖：

library(stringr)
b = str_replace_all(a, c("2010" = "2011", "2011" = "2012"))

方法2：基础R原生实现（无需额外包）

利用gsub的自定义替换函数，通过正则匹配目标字符串后判断替换：

b = gsub("201(0|1)", function(match) {
  if(match == "2010") "2011" else "2012"
}, a)

或者更简洁的写法：

b = gsub("201(0|1)", paste0("201", as.integer(substr(match, 4, 4)) + 1), a)

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