R 删除数字后的括号，保留数字

我需要删除字符串中数字后的括号：

 "dl_CONH_r = a0cons+a2cons*(CONH_r_lag_1)-a3cons*HGDI_r_lag_1)-(1-a3cons)*HNW_r_lag_2)+a4cons*rate_90_r_lag_1))+a5cons*dl_HCOE_r+a6cons*dl_HOY_r_lag_2)+a7cons*dl_HNW_r_lag_1)+a8cons*d_rate_UNE_lag_2)+(1-a5cons-a6cons-a7cons)*(dl_TREND_PROD+dl_TREND_AVEH+dl_TREND_WAP)"

结果字符串应如下所示：

 "dl_CONH_r = a0cons+a2cons*(CONH_r_lag_1-a3cons*HGDI_r_lag_1-(1-a3cons)*HNW_r_lag_2+a4cons*rate_90_r_lag_1)+a5cons*dl_HCOE_r+a6cons*dl_HOY_r_lag_2+a7cons*dl_HNW_r_lag_1+a8cons*d_rate_UNE_lag_2+(1-a5cons-a6cons-a7cons)*(dl_TREND_PROD+dl_TREND_AVEH+dl_TREND_WAP)"

我试图在这里捕获的正则表达式是字符串“lag_”后面的第一个括号，后跟一些数字。请注意，此处有两个括号：

 rate_90_r_lag_1))

我只想删除第一个

我在gsub中尝试了一个简单的正则表达式

 a <-  "dl_CONH_r = a0cons+a2cons*(CONH_r_lag_1)-a3cons*HGDI_r_lag_1)-(1-a3cons)*HNW_r_lag_2)+a4cons*rate_90_r_lag_1))+a5cons*dl_HCOE_r+a6cons*dl_HOY_r_lag_2)+a7cons*dl_HNW_r_lag_1)+a8cons*d_rate_UNE_lag_2)+(1-a5cons-a6cons-a7cons)*(dl_TREND_PROD+dl_TREND_AVEH+dl_TREND_WAP)"

gsub("[0-9]\\)","[0-9]",a)

---

我理解gsub正在做它打算做的事情。我不知道的是如何将数字保留在括号之前？

您需要使用环视（在本例中，前面的是），以便它只匹配括号作为匹配组，而不是数字和括号。然后你可以去掉括号

---

gsub（（？您可以使用捕获组执行此操作：

让我们在字符串
my_字符串上尝试一下。这是一个非常有用的答案，谢谢。我使用了环顾法，这很管用。我继续使用gsub，所以@Marcus a.answer更适合我的问题。
 "dl_CONH_r = a0cons+a2cons*(CONH_r_lag_[0-9]-a3cons*HGDI_r_lag_[0-9]-(1-a3cons)*HNW_r_lag_[0-9]+a4cons*rate_90_r_lag_[0-9])+a5cons*dl_HCOE_r+a6cons*dl_HOY_r_lag_[0-9]+a7cons*dl_HNW_r_lag_[0-9]+a8cons*d_rate_UNE_lag_[0-9]+(1-a5cons-a6cons-a7cons)*(dl_TREND_PROD+dl_TREND_AVEH+dl_TREND_WAP)"

reg_expression <- "(.*[0-9])\\)(.*)" #two capture groups, with the parenthesis not in a group
my_sub_string <- sub(reg_expression,"\\1\\2", my_string)

reg_expression <- "(?<=[0-9])\\)" #lookbehind 
my_sub_string <- sub(reg_expression,"", my_string)