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

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