R语言中用正则表达式移除无对应左括号的右括号方案咨询

你之前使用的正则"(?!.*[(])[)]"仅能匹配整个字符串完全没有左括号的右括号，无法处理字符串中存在左括号但后续有多余右括号的场景（比如"a(b)c)"）——因为.*[(]会匹配到前面的左括号，导致负向预查不成立，多余的右括号无法被识别。

推荐方案：遍历计数法（可靠通用） #

这种方法通过遍历字符串并维护括号计数，精准过滤掉无对应左括号的右括号，同时兼容嵌套括号场景，比正则更可靠。以你使用的R语言stringr生态为例：

library(stringr)

clean_extra_parens <- function(input_str) {
  # 先复用你已有的逻辑移除无对应右括号的左括号
  str_without_extra_left <- str_remove(input_str, "\\((?!.*\\))")
  
  # 再处理无对应左括号的右括号
  chars <- str_split(str_without_extra_left, "")[[1]]
  open_count <- 0
  result_chars <- c()
  
  for (char in chars) {
    if (char == "(") {
      open_count <- open_count + 1
      result_chars <- c(result_chars, char)
    } else if (char == ")") {
      if (open_count > 0) {
        open_count <- open_count - 1
        result_chars <- c(result_chars, char)
      }
      # 无匹配左括号的右括号直接跳过
    } else {
      result_chars <- c(result_chars, char)
    }
  }
  
  str_c(result_chars, collapse = "")
}

# 测试示例
string1 <- "This (is solved"
string2 <- "This is (fine)"
string3 <- "This is the problem)"
string4 <- "Test ((nested) extra) ) case)"

clean_extra_parens(string1) # 输出："This is solved"
clean_extra_parens(string2) # 输出："This is (fine)"
clean_extra_parens(string3) # 输出："This is the problem"
clean_extra_parens(string4) # 输出："Test ((nested) extra) case"

非嵌套场景的正则方案（局限性强） #

如果你的字符串不存在嵌套括号，也可以用以下正则快速处理，但无法应对嵌套情况：

str_remove_all(data, "\\)(?=(?:[^()]*(?:\\([^()]*\\)))*[^()]*$)")

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