如何在R语言中为字符串补全缺失的右括号？

你之前的代码核心问题是替换时没有保留匹配到的带左括号的内容，直接把匹配段换成了右括号，导致原有的"(ABC)"被错误替换成")"，而非补全为"(ABC)"。

正确的R实现方案 #

使用stringr包的str_replace_all函数，通过捕获组保留匹配到的目标内容，再追加右括号完成补全：

library(stringr)

# 示例文本
text <- "The dog walked (ABC in the park"
# 正则捕获左括号+大写字母组合（确保后续无右括号），替换时保留捕获内容并补右括号
text <- str_replace_all(text, '(\\([A-Z]+(?!\\))\\b)', '\\1)')

print(text)
# 输出：[1] "The dog walked (ABC) in the park"

代码细节解释 #

1. 正则表达式'(\\([A-Z]+(?!\\))\\b)'：
   • \\(：匹配左括号（R中需用双反斜杠转义）
   • [A-Z]+：匹配一个或多个大写字母
   • (?!\\))：负前瞻断言，确保当前位置后没有右括号（避免给已有闭合的括号重复加）
   • \\b：单词边界，确保匹配的是完整的括号内单词
   • 整体用()包裹作为捕获组，方便后续引用匹配到的内容
2. 替换字符串'\\1)'：
   • \\1：引用第一个捕获组的内容（即匹配到的"(ABC)"部分）
   • 追加)，实现补全右括号的效果

扩展场景：支持更多括号内内容 #

如果括号内内容包含小写字母、数字等，可调整正则匹配左括号后所有非右括号的内容：

text <- "The cat ran (abc123 down the street"
text <- str_replace_all(text, '(\\([^)]+(?!\\))\\b)', '\\1)')
print(text)
# 输出：[1] "The cat ran (abc123) down the street"

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