使用gsub从字符串中删除模式:参数“pattern”的长度大于1，将只使用第一个元素

Question

我试图从下面的< code>chr数组中用gsub删除字符串中的模式

articles<-c("RT @name1: hello world", "@nickname1: bye bye guys", 
"RT @name2_surname2: I have no text", "Hello!")

模式由@和：之间的术语形成，仅在以RT开头的字符串中。因此，在我们的例子中，模式是：

 "name1"    "name2_surname2"

该模式可以通过使用

pat <- "^RT.*?@(.*?):.*"
res <- gsub(pat,"\\1",articles[grepl(pat,articles)])

去除此图案后，期望的结果是这样的：

"RT : hello world", "@nickname1: bye bye guys", 
"RT : I have no text", "Hello!"

无论如何，当我使用：

gsub(res,"",articles)

我得到了一个错误的结果：

[1] "RT @: hello world"                  "@nick: bye bye guys"               
[3] "RT @name2_surname2: I have no text" "Hello!"                            
Warning message:
In gsub(res, "", articles) :
  argument 'pattern' has length > 1 and only the first element will be used

Answer 1

我们可以将模式粘贴到单个字符串中，并在gsub模式中使用它，因为模式参数没有矢量化，即，它只需要1的长度

gsub(paste0("\\b(", paste(res, collapse="|"),  ")\\b"), "", articles)
#[1] "RT @: hello world"        "@nickname1: bye bye guys" "RT @: I have no text"     "Hello!"      

Answer 2

如果所需输出如所述：

"RT : hello world", "@nickname1: bye bye guys", "RT : I have no text", "Hello!"

则此解决方案有效：

首先，您需要更改模式以在捕获组中包含@：

pat <- "^RT.*?(@.*?):.*"
res <- gsub(pat,"\\1",articles[grepl(pat,articles)])

然后，按照@Akrun的建议，您可以将 res的两个矢量元素粘贴在一起，这允许您将其用作（单个）模式：

gsub(paste0(res, collapse = "|"), "", articles)

这将为您提供不可靠的输出。