我有一个向量
vec <- c(2, 3, 5, 6, 7, 8, 16, 19, 22, 23, 24)
连续的数字是：
c(2, 3)
c(5, 6, 7, 8)
c(22, 23, 24)
所以第一个向量从 2 开始，到 3 结束；
第二个向量从 5 开始，到 8 结束；
对于第三个向量，从 22 开始，到 24 结束；
有一个函数可以识别连续数字从哪里开始和结束吗？
通过使用diff检查每个连续值之间的差异，可以找到差异不存在的地方+1.
diff(vec)
## [1] 1 2 1 1 1 8 3 3 1 1
c(1, diff(vec)) != 1
## [1] FALSE FALSE TRUE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE
然后使用cumsum制作组标识符：
cumsum(c(1, diff(vec))!=1)
## [1] 0 0 1 1 1 1 2 3 4 4 4
并用它来split您的数据：
split(vec, cumsum(c(1, diff(vec))!=1))
##$`0`
##[1] 2 3
##
##$`1`
##[1] 5 6 7 8
##
##$`2`
##[1] 16
##
##$`3`
##[1] 19
##
##$`4`
##[1] 22 23 24
哪个可以Filter编辑为连续值：
Filter(\(x) length(x) > 1, split(vec, cumsum(c(1, diff(vec))!=1)))
##$`0`
##[1] 2 3
##
##$`1`
##[1] 5 6 7 8
##
##$`4`
##[1] 22 23 24
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
