r - 如何拆分不同列表中的非连续数字

Question

我在 R 中有以下数值列表:

sales_by_hour = c(130, 21, 0, 0, 0, 0, 6, 244, 391, 408, 431, 0, 0, 471, 
                  530, 573, 643, 643, 667, 787, 990, 1024, 1012, 712)

然后我应用了以下代码来获取最小值的索引

which(test2==0)

返回值 c(3,4,5,6,12,13)​​。但是我想再将这个列表分成 2 个或更多列表 ex。 c(3,4,5,6) 和 c(12,13)​​，因为我想分隔非连续的数字系列。

Answer 1

可以在base中完成:

split(which(sales_by_hour==0), cumsum(c(1, diff(which(sales_by_hour==0)) != 1)))

#> $`1`
#> [1] 3 4 5 6
#> 
#> $`2`
#> [1] 12 13