Как заменить последнее вхождение в символ?

Question

У меня есть вектор R символов:

a<-'aabbccaabbccaabbcc' 

Я хочу, чтобы заменить последнее вхождение «аа» и все, что следует с «BB». Я пробовал использовать stri_replace_last из stringi пакет с regex (.*)aa(.*). Но он заменяет все, поскольку это одна строка.

Есть ли способ сделать это в R?

Answer 1

a <- 'aabbccaabbccaabbcc' 
first <- gsub('^(.*)aa.*$', '\\1', a) 
result <- paste0(first, paste(replicate(nchar(a) - nchar(first), "b"), collapse = "")) 

> a 
[1] "aabbccaabbccaabbcc" 
> result 
[1] "aabbccaabbccbbbbbb" 
       ^^ anything which follows the last 'aa' has been replaced with 'b' 

Answer 2

Мы можем использовать gsubfn, чтобы соответствовать два «а», за которой следует ноль или более символов, которые не «а» ([^a]*) до конца ($) строки, заменить найденную строку на тиражирование 'b' по количеству символов совпадающей строки.

library(gsubfn) 
gsubfn("aa[^a]*$", ~strrep("b", nchar(x)), a) 
#[1] "aabbccaabbccbbbbbb"