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

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