计算向量中相等数字序列的长度

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