Регулярное выражение, обработанное заменой grepl

Question

Целью является синтаксический анализ регулярного выражения и замена совпадающего шаблона.

Рассмотрим следующий пример:

data <- c("cat 6kg","cat g250", "cat dog","cat 10 kg") 

Я должен найти все вхождения cat и ряд [0-9]. Для этого:

found <- data[grepl("(^cat.[a-z][0-9])|(^cat.[0-9])",data)] 
found 
[1] "cat 6kg" "cat g250" "cat 10 kg" 

Следующим шагом является замена каждого элемента found шпагатом cat. Я попытался GSUB, суб и gsubfn() из пакета (gsubfn) по Stack вопросу 20219311:

gsubfn("((^cat.[a-z][0-9])|(^cat.[0-9]))", "cat",data) 
[1] "catkg" "cat50" "cat dog" "cat0 kg" 

который НЕ ожидаемый результат:

[#] "cat" "cat" "cat dog" "cat" 

I Думаю, мне не хватает смысла. Буду признателен за любую помощь, которую я мог бы получить. Благодарю.

Answer 1

Простой ,,,, Просто назначьте строку cat элементам соответствия. Это позволит заменить все символы, присутствующие в элементе с cat

> data <- c("cat 6kg","cat g250", "cat dog","cat 10 kg") 
> data[grepl("(^cat.[a-z][0-9])|(^cat.[0-9])",data)] <- "cat" 
> data 
[1] "cat"  "cat"  "cat dog" "cat" 

или

> data <- c("cat 6kg","cat g250", "cat dog","cat 10 kg") 
> data[grepl("^cat.[a-z]?[0-9]",data)] <- "cat" 
> data 
[1] "cat"  "cat"  "cat dog" "cat" 

Answer 2

Вы также можете сделать

sub('\\s*dog(*SKIP)(*F)|(?<=cat).*', '', data, perl=TRUE) 
#[1] "cat"  "cat"  "cat dog" "cat"  

Или

sub('(cat)\\s*([0-9]|[a-z][0-9]).*$', '\\1', data) 
#[1] "cat"  "cat"  "cat dog" "cat"  

Answer 3

Попробуйте это:

gsub('(\\w?[0-9].*)','',data) 
#[1] "cat " "cat " "cat dog" "cat "