構建物的載體，以指示R組的變化

Question

我有組標識向量作爲

> test <-c(1,1,0,2,2,3,4,1,1,0) 
> test 
[1] 1 1 0 2 2 3 4 1 1 0 

我想建造另一個向量來表示身份的變化

[1] 1 1 2 3 3 4 5 6 6 7 

什麼是最好的方式做這個？

Answer 1

使用行程長度編碼（rle）seq_along和rep

r <- rle(test) 

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

Answer 2

替代選項，這將只承認爲數字數據工作。

test <-c(1,1,0,2,2,3,4,1,1,0) 
cumsum(c(1,diff(test)!=0)) 
# [1] 1 1 2 3 3 4 5 6 6 7 

而且一個令人費解的變化，將任何數據類型的工作：

head(cumsum(c(TRUE,c(tail(test,-1),NA) != test)),-1) 
# [1] 1 1 2 3 3 4 5 6 6 7