[英]Transforming a numeric vector into list of intervals
我有以下矢量
x <- c(1,3,4,5,8,9,10,13)
我希望将其转换为一组间隔:
iwant <- list(1, c(3,5), c(8,10), 13)
iwant
#> [[1]]
#> [1] 1
#>
#> [[2]]
#> [1] 3 5
#>
#> [[3]]
#> [1] 8 10
#>
#> [[4]]
#> [1] 13
是否有一种简单的方法可以将x
转换成R中的区间范围组或Rcpp(实际x
向量可能有多达~80M值)我完全错过了? 如果没有,有人可以指出我的算法,我似乎无法搞清楚。
目前尚不清楚你想要做什么,但在这里你如何重现预期的结果:
lapply(split(x,c(0,cumsum(diff(x)!=1))),
function(y)if(length(y)>2) c(y[1],tail(y,1))else y)
$`0`
[1] 1
$`1`
[1] 3 5
$`2`
[1] 8 10
$`3`
[1] 13
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.