如何在r中的字符串中删除带有“（”的单词？

Question

我有以下字符串：

str<-c("hello(world(howr u doin")

我想从字符串中删除单词“hello(world(howr”)。我希望我的输出是

str2<-c("u doin")

我使用得到的错误

gsub("hello(world(howr","", str) 

is: 无效表达式，原因 'Missing ')''

请注意，我将在字符串的迭代中使用此函数，我们不能说“（”会出现在字符串中的哪个位置。所以，我会要求您提供一个全局解决方案。谢谢。 另外，请您注意，字符串中要删除的单词在不同时间可能会有所不同。所以我想要一个正则表达式，它告诉忽略要删除的单词中特殊字符的含义。

这是一个真实世界的情况

library(stringr)
library(NLP)
library(openNLP)
text_sa<-as.String("`$%`$> http://t.co/W9wDz8yhZE @AshramOrg @villan_TKRrength! #WeSupport_`$8`$(`$>`$$`$(_`$8`$`$8`% ")
removalwords<-c("#WeSupport_`$8`$(`$>`$$`$(_`$8`$\002`$8`%", "@AshramOrg")
for(k in 1:length(removalwords)){
text_sa <- gsub(removalwords[k], "", text_sa)
}

我的预期输出是

text_sa<-as.String("`$%`$> http://t.co/W9wDz8yhZE @villan_TKRrength!")

Answer 1

您需要转义括号，因为括号是正则表达式中的特殊字符。由于更换只会发生一次，因此您无需使用gsub。单独sub 就足够了。

sub("hello\\(world\\(howr\\s*","", str) 

或

sub("^\\S+\\s*", "", str)

编辑：

x <- "`$%`$> http://t.co/W9wDz8yhZE @AshramOrg @villan_TKRrength! #WeSupport_`$8`$(`$>`$$`$(_`$8`$`$8`% "
remove <- c("#WeSupport_`$8`$(`$>`$$`$(_`$8`$`$8`%", "@AshramOrg")
gsub(paste(gsub("([^\\w\\s])", "\\\\\\1", remove, perl=T),collapse="|"), "", x, perl=T)
[1] "`$%`$> http://t.co/W9wDz8yhZE  @villan_TKRrength!  "