regex - r 代码删除包含@ 的单词

Question

我想用一个特定的词替换所有包含符号 @ 的词。我使用 gsub，因此将其应用于字符向量。不断发生的问题是，当我使用:

gsub(".*@.*", "email", data) 

字符向量该部分中的所有文本都被删除。

有多封不同长度的电子邮件，因此我无法将之前的字符和之后的字符设置为特定数字。

有什么建议么？

我已经完成了有关正则表达式的大量阅读，但我尝试的一切都失败了。

下面是一个例子:
data <- c("This is an example. Here is my email: emailaddress@help.com. Thank you") data <- gsub(".*@.*", "email", data)
它返回
[1]“电子邮件”

当我想要
[1]“这是一个例子。这是我的电子邮件:电子邮件。谢谢”

Answer 1

您可以使用以下..

gsub('\\S+@\\S+', 'email', data)

说明 :
\S 匹配任何非空白字符。所以这里我们匹配任何非空白字符( 1 或更多次)前面是 @ 后跟任何非空白字符( 1 或更多次)