如何在R语言中正确替换字符串分隔值的旧值为新值？

你的代码出现错误输出，是因为stri_replace_all_regex在vectorize_all = FALSE时会按顺序执行所有替换规则：

1. 首先把所有"1"替换为"2AB"，此时第一个元素"1"变成了"2AB"
2. 接着执行第二个规则，把所有"2"替换为"1CD"，于是"2AB"中的"2"被替换，最终变成"1CDAB"
3. 后续规则继续作用，导致结果不符合预期

下面提供两种可行的解决方法：

方法一：使用正则边界确保精确匹配 #

为每个旧值添加单词边界\\b，让正则仅匹配独立的目标值，避免替换后字符串中的字符被二次修改：

library(stringi)

V1 = list("1","2","3",c("1,2,3"))
before =  c("1","2","3")
after = c("2AB","1CD","DC2")

# 构建带边界的正则匹配模式
before_regex = paste0("\\b", before, "\\b")

stri_replace_all_regex(
  V1,
  before_regex, 
  after, 
  vectorize_all = FALSE
)

运行结果：

[1] "2AB"           "1CD"           "DC2"           "2AB,1CD,DC2"

方法二：拆分-替换-合并（适用于固定分隔符场景） #

如果你的字符串始终用逗号分隔，可以先拆分字符串为独立元素，替换后再合并，这种方法更直观且不易出错：

library(stringi)

V1 = list("1","2","3",c("1,2,3"))
before =  c("1","2","3")
after = c("2AB","1CD","DC2")

# 创建旧值到新值的映射
replace_map = setNames(after, before)

# 定义单个字符串的替换逻辑
replace_single = function(str) {
  parts = stri_split_fixed(str, ",")[[1]]
  replaced_parts = replace_map[parts]
  stri_join(replaced_parts, collapse = ",")
}

# 对V1中的每个元素应用替换函数
sapply(V1, replace_single)

运行结果同样符合预期：

[1] "2AB"           "1CD"           "DC2"           "2AB,1CD,DC2"

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