相关疑难解决方法(0)

我想将我的数据分成连续行的组,通过一些测试.这是一个例子:

set.seed(1)
n   <-  29
ok  <-  sample(c(TRUE,FALSE),n,replace=TRUE,prob=c(.7,.3))

vec <- (1:n)[ok]
# [1]  1  2  3  5  8  9 10 11 12 13 14 16 19 22 23 24 25 26 27 28

所需的输出是"vec"分组为连续序列:

out <- list(1:3,5,8:14,16,19,22:28)

这有效:

nv  <- length(vec)

splits <- 1 + which(diff(vec) != 1)
splits <- c(1,splits,nv+1)
nsp    <- length(splits)

out <- list()
for (i in 1:(nsp-1)){
    out[[i]] <- vec[splits[i]:(splits[i+1]-1)]
}

我猜测基地R有一个更清洁的方式...？我还不熟悉我在SO上看过的那些rle和cumsum诡计......

假设我有序列:

x = c( 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0)

在R中是否有一种优雅的方式来返回每个序列1的开始和停止索引？

答案应该是一个2列数组,其中nRows = 1的序列数:

startIndx = [ 1, 5, 7 ]
stopIndex = [ 2, 5, 9 ]

谢谢.

BSL