我如何计算序列中的运行？

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

find值改变的地方：

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

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

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