将增量标签分配给R中的向量

Question

将增量标签分配给R中的组的最有效方法是什么？

$.connection.hub.userId

预期结果：

test_vec <- c('a','a','a','b','b','b','a','a','a')

我知道您可以使用rle函数来做到这一点，但是我试图避免嵌套的for循环，因为实际数据集很大。