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

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