替换括号内的英文字符

Question

我想删除英文字符，如果它在括号中。

x = "Бактериологическое исследование отделяемого слизистой оболочки прямой кишки на гонококк (Nesseria gonorrheeae)"
gsub('\\(.*?[a-zA-Z]\\)', '', x)

上面的代码工作正常。但如果我有多个括号，则不会返回正确的结果。

x = "Определение полиморфизма A1648G (замена аденина на гуанин в позиции 1648) в гене гликопротеина la (GpIA)"
gsub('\\(.*?[a-zA-Z]\\)', '', x)

我希望它应该返回 -

Определение полиморфизма A1648G (замена аденина на гуанин в позиции 1648) в гене гликопротеина la

Answer 1

一个小小的修正：

x <- "исследование (исследование) исследование (test) исследование (test) исследование"
gsub('\\([a-zA-Z ]*\\)', '', x)
# [1] "исследование (исследование) исследование  исследование  исследование"