使用游程长度编码 (rle)、seq_along 和 rep

Use run length encoding (rle), seq_along and rep

r <- rle(test)

changes <- rep(seq_along(r$lengths), r$lengths)
changes
## [1] 1 1 2 3 3 4 5 6 6 7