如何在一个序列中找到缺失的数字？

Posted 2023-02-03

我有一个包含数字列表的向量。我如何查找向量中缺少的数字？

例如，我有一个向量，其中包含了5，11和18三个数字。

sequence <- c(12:17,1:4,6:10,19)

缺少的数字是5，11和18。

答案

sequence <- c(12:17,1:4,6:10,19)

seq2 <- min(sequence):max(sequence)

seq2[!seq2 %in% sequence]

...和输出。

> seq2[!seq2 %in% sequence]
[1]  5 11 18
> 

另一答案

这个答案只是得到序列中从低到高的所有数字 然后询问哪些是原始序列中没有的数字

which(!(seq(min(sequence), max(sequence)) %in% sequence))
[1]  5 11 18

另一答案

c(1:max(sequence))[!duplicated(c(sequence,1:max(sequence)))[-(1:length(sequence))]]
[1]  5 11 18

我承认这不是一个特别优雅的解决方案，但它所做的是确定向量1:max(sequence)中哪些是重复的序列，然后从同一个向量中选择那些。

另一答案

你可以使用 setdiff() 函数来计算集合差。你想要的是完整序列之间的差值(从 min(sequence) 到 max(sequence))和 sequence 有缺失值。

setdiff(min(sequence):max(sequence), sequence)