如何将数字正确替换为对应字符串值？

你的代码出现错误结果的核心原因是替换模式的顺序不合理：短模式（"1"、"2"）排在长模式（"11"、"22"）前面，导致处理"11"时，程序会先把其中的每个"1"替换成"A"，最终得到"AA"；同理"22"被替换成"cc"，而非匹配整个字符串替换为"B"和"E"。

修正方案 #

调整替换模式的顺序，优先替换长度更长的字符串，避免短模式提前破坏长模式的匹配。你可以用lapply替代循环（更符合R的风格），或者保留循环但调整模式顺序：

library(stringi)

# 调整顺序：先处理长模式，再处理短模式
before = c("11", "1", "22", "2")
after = c("B", "A", "E", "c")

phrase = list(c("1","11"), c("2","22"))

# 用lapply批量处理每个子向量
result = lapply(phrase, function(x) {
  stri_replace_all_fixed(
    str = x,
    pattern = before,
    replacement = after,
    vectorize_all = FALSE
  )
})

# 输出结果
print(result)

运行结果 #

[[1]]
[1] "A" "B"

[[2]]
[1] "c" "E"

更清晰的写法（用命名向量管理替换规则） #

library(stringi)

# 用命名向量直接定义替换规则，顺序同样遵循先长后短
replace_map = c("11" = "B", "1" = "A", "22" = "E", "2" = "c")

phrase = list(c("1","11"), c("2","22"))

result = lapply(phrase, function(x) {
  stri_replace_all_fixed(
    str = x,
    pattern = names(replace_map),
    replacement = replace_map,
    vectorize_all = FALSE
  )
})

print(result)

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