如何查找R中的数字是不是连续？

Posted 2023-02-19

【中文标题】如何查找R中的数字是不是连续？

【英文标题】：How to find if the numbers are continuous in R?如何查找R中的数字是否连续？

【发布时间】：2014-05-30 11:57:04

【问题描述】：

我有一个值范围

c(1,2,3,4,5,8,9,10,13,14,15)

我想找到数字变得不连续的范围。我想要的只是这个作为输出：

(1,5)
(8,10)
(13,15)

我需要找到断点。

我需要在 R 中完成。

【问题讨论】：

为什么在 1 和 5 之间有间隔时 (1,5) 是预期输出？你的价值观中没有 4。

已更改。只是一个疏忽。

是的，我在 Python 中找到了解决方案，但我在 R 中这样做。

我想看看你的 Python 解决方案：@thecoder16

【参考方案1】：

这样的？

x <- c(1:5, 8:10, 13:15) # example data
unname(tapply(x, cumsum(c(1, diff(x)) != 1), range)
# [[1]]
# [1] 1 5
# 
# [[2]]
# [1]  8 10
# 
# [[3]]
# [1] 13 15

另一个例子：

x <- c(1, 5, 10, 11:14, 20:21, 23)
unname(tapply(x, cumsum(c(1, diff(x)) != 1), range))
# [[1]]
# [1] 1 1
#
# [[2]]
# [1] 5 5
#
# [[3]]
# [1] 10 14
#
# [[4]]
# [1] 20 21
#
# [[5]]
# [1] 23 23

【参考方案2】：

x <- c(1:5, 8:10, 13:15)    
rr <- rle(x - seq_along(x))
rr$values <- seq_along(rr$values)
s <- split(x, inverse.rle(rr))
s
# $`1`
# [1] 1 2 3 4 5
# 
# $`2`
# [1]  8  9 10
# 
# $`3`
# [1] 13 14 15

## And then to get *literally* what you asked for:
cat(paste0("(", gsub(":", ",", sapply(s, deparse)), ")"), sep="\n")
# (1,5)
# (8,10)
# (13,15)

【讨论】：

可以用 x-seq_along(x) 分割而不是使用 rle？

@user20650 -- 问题是这样的向量不安全：x <- c(1:5, 8:10, 9:11)。 （看看你在做split(x, x-seq_along(x))时会得到什么）。

【参考方案3】：

我发布了seqle，它将在一行中为您完成此操作。您可以加载包 cgwtools 或在 SO 中搜索代码，因为它已经发布了几次。

【参考方案4】：

假设您不关心确切的输出并且正在寻找每个范围的最小值和最大值，您可以使用 diff/cumsum/range 如下：

x  <- c(1:5, 8:10, 13:15)
x. <- c(0, cumsum( diff(x)-1 ) ) 

lapply( split(x, x.), range )