gpt4 book ai didi

r - 确定 R 中连续数字的序列

转载 作者:行者123 更新时间:2023-12-04 03:01:00 28 4
gpt4 key购买 nike

类似于Finding groups of contiguous numbers in a listFind consecutive values in vector in R ,不同之处在于我有一个可能最多为 4 的数字序列,即

 y=c(4*1:4,24,31,33,39,4*16:20)
> y
[1] 4 8 12 16 24 31 33 39 64 68 72 76 80

我想要一个函数来返回每个值序列,这些值最多由 4 分隔,所以我得到:

4 8 12 16 # all sep by at most 4
31 33 # all sep by at most 4
64 68 72 76 80 # all sep by at most 4

我试过:

st=c(1,which(diff(y)<5)+1)
en=c(st-1,length(y))
y[st]
[1] 4 8 12 16 33 68 72 76 80
y[en]
[1] 4 8 12 31 64 68 72 76 80

没用。

我确信我遗漏了一些明显的东西,如果有任何提示,我将不胜感激。

最佳答案

这就是你想要的吗?

split(y, cumsum(c(0, diff(y) > 4)));
#$`0`
#[1] 4 8 12 16
#
#$`1`
#[1] 24
#
#$`2`
#[1] 31 33
#
#$`3`
#[1] 39
#
#$`4`
#[1] 64 68 72 76 80

我在您的列表中没有看到24;这是一个错误吗?

如果您想排除只有一个数字的 list 条目,您可以在一行中完成所有操作:

Filter(length, lapply(split(y, cumsum(c(0, diff(y) > 4))), function(x) x[length(x) > 1]));
#$`0`
#[1] 4 8 12 16
#
#$`2`
#[1] 31 33
#
#$`4`
#[1] 64 68 72 76 80

关于r - 确定 R 中连续数字的序列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49245178/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com