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

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