R заменить элемент в символьной строке на самый последний элемент другого типа

Question

Предположим, у меня есть вектор, такой как

vec <- c('blue', 'XX', 'XX', 'XX', 'green', 'XXX', 'XXX', 'purple', 'XX', 'XXX')

Я хочу изменить все элементы, содержащие X, на тот, которым был последний цветовой элемент.

Таким образом, желаемый результат будет

 "blue"   "blue"   "blue"   "blue"   "green"  "green"  "green"  "purple" "purple" "purple"

Я ожидаю, что в пакете stringr есть что-то, что можно использовать (возможно, с оператором ifelse?), Но я не знаю, что это такое,Спасибо!(отредактировано для форматирования)

Answer 1

library(zoo)

vec <- c('blue', 'XX', 'XX', 'XX', 'green', 'XXX', 'XXX', 'purple', 'XX', 'XXX')
vec[grepl('x', vec, ignore.case = TRUE)] <- NA
na.locf(vec)