如何通过分隔符拆分矢量？

Question

我有一个整数向量，例如c(1,2,0,3,4)我希望0成为分隔符并获得list(c(1,2), c(3,4))。我可以使用任何库函数吗？

Answer 1

我知道没有库函数，但你可以编写自己的函数：

split.vec <- function(vec, sep = 0) {
    is.sep <- vec == sep
    split(vec[!is.sep], cumsum(is.sep)[!is.sep])
}

split.vec(c(1,2,0,3,4), 0)
# $`0`
# [1] 1 2
# 
# $`1`
# [1] 3 4