R语言中如何替换字符串内指定字符但排除首字符位置的该字符？

现有向量：

x = c("AXX", "XAX", "XXA")

需求：将向量中所有不是字符串开头的"A"替换为"B"，最终得到：

c("AXX", "XBX", "XXB")

解决方案1：使用正则负向断言（推荐） #

利用Perl兼容的正则表达式，通过负向零宽断言匹配非开头的"A"：

x = c("AXX", "XAX", "XXA")
result = gsub("(?<!^)A", "B", x, perl = TRUE)
# 查看结果
result

输出结果：

[1] "AXX" "XBX" "XXB"

• (?<!^)：负向零宽断言，确保匹配的"A"前面不是字符串开头（^）
• perl = TRUE：启用Perl兼容正则引擎，支持lookbehind断言

解决方案2：拆分字符串拼接处理 #

如果不想用Perl正则，可以拆分字符串后单独处理非开头部分：

x = c("AXX", "XAX", "XXA")
result = mapply(function(s) {
  if (substr(s, 1, 1) == "A") {
    paste0("A", gsub("A", "B", substr(s, 2, nchar(s))))
  } else {
    gsub("A", "B", s)
  }
}, x)

这种方法通过判断首字符是否为"A"，分别处理首字符和剩余部分，再拼接结果。

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