計算向量中等號序列的長度

Question

考慮向量c(1,1,1,0,1,1) 。

這個想法是對每個相等的數字序列進行計數，例如

1. 相等數字的長度，即1,1,1為3
2. 相等數字的長度，即0為1
3. 相等數字的長度，即1,1為2

我已經編寫了將所有數字轉換為1或0的代碼。將相等數字的序列提取到新向量並使用表函數進行計數是否有意義？ 還是有另一種方法？

感謝您的任何建議！

Answer 1

使用rle ：

x <- c(1,1,1,0,1,1)
rle(x)
# Run Length Encoding
#  lengths: int [1:3] 3 1 2
#  values : num [1:3] 1 0 1