如何用gsub()或其他方法仅替换字符串标签外的指定内容？

方法一：带条件的gsub()实现（推荐） #

可以借助Perl风格的正则表达式，通过负向环视精准匹配标签外的目标字符串，避免修改<>标签内的内容。针对你的需求，代码如下：

text <- "In Spanish, Brasil is written as <Brazil>, for some reason."
# 替换标签外的"Brasil"为"Brazil"
result <- gsub("(?<!<[^>]*)Brasil(?!>[^<]*)", "Brazil", text, perl = TRUE)
print(result)
# [1] "In Spanish, Brazil is written as <Brazil>, for some reason."

正则说明： #

• (?<!<[^>]*)：负向后顾断言，确保目标字符串前面没有未闭合的<标签（即不在标签起始到结束的区间内）
• Brasil：要替换的目标字符串
• (?!>[^<]*)：负向前瞻断言，确保目标字符串后面没有未闭合的>标签
• perl = TRUE：启用Perl风格正则，支持环视语法

方法二：拆分-替换-合并 #

如果觉得正则复杂，也可以先把字符串拆分为标签片段和非标签片段，仅修改非标签部分后再合并：

library(stringr)

text <- "In Spanish, Brasil is written as <Brazil>, for some reason."
# 提取所有片段（标签和非标签）
fragments <- str_extract_all(text, "<[^>]+>|[^<>]+")[[1]]
# 仅替换非标签片段中的"Brasil"
processed_fragments <- lapply(fragments, function(x) {
  if (!str_detect(x, "^<.*>$")) {
    str_replace_all(x, "Brasil", "Brazil")
  } else {
    x
  }
})
# 合并片段
result <- paste(unlist(processed_fragments), collapse = "")
print(result)
# [1] "In Spanish, Brazil is written as <Brazil>, for some reason."

这个方法逻辑更直观，适合正则不太熟练的场景，需要用到stringr包的字符串处理函数。

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