Как заменить текст в R, используя регулярное выражение?

Question

У меня есть вектор строк, который выглядит примерно так: c("abc@40gmail.com", "xyz@50gmail.com"). По какой-то причине после @ есть случайные/разные цифры, и я пытаюсь их удалить. Используя регулярное выражение, как я могу сказать R, чтобы удалить или заменить цифры, которые появляются после "@", поэтому я заканчиваю c("abc@gmail.com", "xyz@gmail.com"). Я мало знаю о Regex, поэтому я действительно очень хочу, чтобы кто-то мог предоставить не только код, но и краткое описание кода. Благодаря!

Answer 1

Вы можете использовать положительный или \K 'назад

sub("(?<=@)\\d+", "", x, perl=T) 

\\d+ соответствует одному или более символов цифр. Таким образом, (?<=@) заставляет механизм регулярных выражений выглядеть сразу после символа @, а затем сделать его соответствующим следующему одному или нескольким символам цифр. Поскольку образы принадлежат семейству PCRE, вам необходимо включить параметр perl=TRUE.

ИЛИ

sub("@\\K\\d+", "", x, perl=T) 

Answer 2

Одним из вариантов является

x <- c("abc@40gmail.com", "xyz@50gmail.com") 
sub("@\\d+", "@", x) 
## [1] "abc@gmail.com" "xyz@gmail.com"