如何计算序列中的运行？

Question

在R中，计算序列中相同元素运行的最有效/最简单的方法是什么？

例如，如何计算非负整数序列中连续零的数量：

x <- c(1,0,0,0,1,0,0,0,0,0,2,0,0) # should give 3,5,2

Answer 1

使用rle()：

y <- rle(c(1,0,0,0,1,0,0,0,0,0,2,0,0))
y$lengths[y$values==0]

Answer 2

这可以通过使用值更改位置的索引以高效的方式完成：

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))