r - 确定所有值是否都是 R 中的相邻整数

Question

我正在尝试测试一个对象中的所有值(如果已排序)是否都是相邻的整数值。例如:

x <- c(1,2,3)
is.adjacent(x)
TRUE

y <- c(1,2,4)
is.adjacent(y)
FALSE

z <- c(4,2,1,3)
is.adjacent(z)
TRUE

有什么好的方法吗？

Answer 1

这是一个解决方案。我已经构建了它，以便它会为包含一组连续整数的向量返回 TRUE，即使其中一些是重复的(例如 c(1,3,2,1 ,1,1))。如果您希望它在这种情况下返回 FALSE，只需删除调用 unique() 的部分即可。

is.adjacent <- function(X) {
    all(diff(sort(unique(X))) == 1)
}

# Try it out
x <- c(1,2,3)
y <- c(1,2,4)
z <- c(4,2,1,3)

is.adjacent(x)
is.adjacent(y)
is.adjacent(z)