Crie nomes de grupos para valores consecutivos

Parece uma tarefa fácil, não consegue descobrir uma maneira mais simples. eu tenho umx abaixo e precisa criar nomes de grupos para valores consecutivos. Minha tentativa estava usandorleidéias melhores?

# data
x <- c(1,1,1,2,2,2,3,2,2,1,1)

# make groups
rep(paste0("Group_", 1:length(rle(x)$lengths)), rle(x)$lengths)
# [1] "Group_1" "Group_1" "Group_1" "Group_2" "Group_2" "Group_2" "Group_3" "Group_4"
# [9] "Group_4" "Group_5" "Group_5"

questionAnswers(3)

yourAnswerToTheQuestion