如果我有一个数字向量 [1 2 3 4 7 8 9 10 15 16 17],我该如何拆分它以便返回多个向量来分隔该向量的连续元素?即 [1 2 3 4] [7 8 9 10] [15 16 17]。我在matlab中找到了如何做到这一点的答案,但我只使用R。
谢谢。
这是另一种选择:
vec <- c( 1, 2, 3, 4, 7, 8, 9, 10, 15, 16, 17 )
split(vec, cumsum(seq_along(vec) %in% (which(diff(vec)>1)+1)))
# $`0`
# [1] 1 2 3 4
#
# $`1`
# [1] 7 8 9 10
#
# $`2`
# [1] 15 16 17
另外的选择:
split(vec, cummax(c(1,diff(vec))))
结果
$`1`
[1] 1 2 3 4
$`3`
[1] 7 8 9 10
$`5`
[1] 15 16 17