如何计算序列中的运行次数？

Question

在R中，对序列中相同元素的运行进行计数的最有效/最简单的方法是什么？例如，如何计算非负整数序列中连续零的数量：x <- c(1,0,0,0,1,0,0,0,0,0,2,0,0) # should give 3,5,2

Answer 1

通过使用值在何处更改的索引，可以有效地完成此操作：

x <- c(1,0,0,0,1,2,1,0,0,1,1)

查找值更改的位置：

diffs <- x[-1L] != x[-length(x)]

获取索引，然后获取后续索引中的差异：

idx <- c(which(diffs), length(x))

diff(c(0, idx))

Answer 2

虽然这rle()是回答OP的问题的简便方法，但在某些情况下，此解决方案还有其他优点。特别是，我一直在寻找一种对每个运行进行唯一编号的方法，而不是对运行进行计数，我发现我可以使用来做到这一点c(0,cumsum(x[-1L] != x[-length(x)]))。