r - 按序列分割向量

Question

这个问题在这里已经有了答案:





Create grouping variable for consecutive sequences and split vector

(5 个回答)


3年前关闭。




以下向量 x包含两个序列 1:4和 6:7 ，以及其他非连续数字。

x <- c(7, 1:4, 6:7, 9)

我想拆分 x通过它的序列，所以结果是一个如下所示的列表。

# [[1]]
# [1] 7
#
# [[2]]
# [1] 1 2 3 4
#
# [[3]]
# [1] 6 7
#
# [[4]]
# [1] 9

有没有一种快速而简单的方法来做到这一点？

我试过了

split(x, c(0, diff(x)))

这很接近，但我不想附加 0到差分向量是正确的方法。使用 findInterval也没有用。

Answer 1

split(x, cumsum(c(TRUE, diff(x)!=1)))
#$`1`
#[1] 7
#
#$`2`
#[1] 1 2 3 4
#
#$`3`
#[1] 6 7
#
#$`4`
#[1] 9