regex заменить слова более чем на два последовательных символа

Question

Как я могу обнаружить присутствие более двух последовательных символов в слове и удалить это слово?

я, кажется, чтобы быть в состоянии сделать это следующим образом:

# example data 
mystring <- c(1, 2, 3, "toot", "tooooot") 
# clunky regex 
gsub("^[[:alpha:]]$", "", gsub(".*(.)\\1+\\1", "", mystring)) 
[1] "1" "2" "3" "toot" "" 

Но я уверен, что есть более эффективный способ. Как я могу сделать это только с одним gsub?

Answer 1

Вы можете использовать grepl вместо этого.

mystring <- c(1, 2, 3, "toot", "tooooot", "good", "apple", "banana") 
mystring[!grepl("(.)\\1{2,}", mystring)] 
## [1] "1"  "2"  "3"  "toot" "good" "apple" "banana" 

** Объяснение **
\\1 матчи первая группа (в данном случае (.)). {2,} указывает, что предыдущий символ должен быть сопоставлен как минимум 2 раза или более. Так как мы хотим, чтобы любой символ повторялся 3 раза или более - (.) - это первое появление, \\1 нужно сопоставить 2 раза больше.

Answer 2

Объединить выражения вроде так:

gsub("^[[:alpha:]]*([[:alpha:]])\\1\\1[[:alpha:]]*$", "", mystring) 

Answer 3

Другая возможность:

mystring[grepl("(.{1})\\1{2,}", mystring, perl=T)] <- ""