在R中，为什么is.integer(1)返回false？

Question

在R中，为.integer(1)返回FALSE和类(1)返回“numeric”，而为.integer(1:1)返回TRUE和类(1:1)返回“integer”。为什么is.integer(1)不返回true？

x1=seq(from=1, to=5, by=1) 
x2=1:5
x1 
[1] 1 2 3 4 5 
x2 
[1] 1 2 3 4 5 
class(x1) 
[1] "numeric" 
class(x2)
[1] "integer"

要确定x1是否包含整数值，我需要使用all（如.integer(x1)==x1)。有更简单的方法吗？

class()可以返回数组，例如有序因子。类(1)不应该返回c（“numeric”，“integer”）吗？

Answer 1

希望这有助于澄清一些事情。你的例子不一定说明全部事实。实际上，从seq返回的向量类型取决于您使用的参数。下面是？seq中的示例设置。

seqList <- list(
    fromto = seq(from = 1, to = 5),
    fromtoby = seq(from = 1, to = 5, by = 1),
    fromtolengthout = seq(from = 1, to = 5, length.out = 5),
    alongwith = seq(along.with = 5),
    from = seq(from = 1),
    lengthout = seq(length.out = 5),
    binary = 1:5
)

对于结果，我们可以看到，当我们使用by参数时（正如您所做的那样），结果不是整数类型的。一旦参数检查发生，结果的类型就会更改为数值（我想，如果我错了，请纠正我）。

str(seqList)
# List of 7
#  $ fromto         : int [1:5] 1 2 3 4 5
#  $ fromtoby       : num [1:5] 1 2 3 4 5
#  $ fromtolengthout: num [1:5] 1 2 3 4 5
#  $ alongwith      : int 1
#  $ from           : int 1
#  $ lengthout      : int [1:5] 1 2 3 4 5
#  $ binary         : int [1:5] 1 2 3 4 5

seq是一个泛型函数，它根据提供的参数分派给不同的方法。所有这些都在？seq中进行了解释。值得一读。还有seq.int、seq_len和seq_along，它们也不同于seq。现在关于你的问题

f <- factor(letters[1:5])
x <- 1:5
f == x
# [1] FALSE FALSE FALSE FALSE FALSE
as.integer(f) == x
# [1] TRUE TRUE TRUE TRUE TRUE

我会使用inherits或typeof。第一个返回一个逻辑语句，这在if语句中可以很好地工作。typeof返回一个向量类型的字符串。

look <- function(x) {
    c(class = class(x), typeof = typeof(x), 
      mode = mode(x), inherits = inherits(x, "integer"))
}
noquote(do.call(rbind, lapply(seqList, look)))
#                 class   typeof  mode    inherits
# fromto          integer integer numeric TRUE    
# fromtoby        numeric double  numeric FALSE   
# fromtolengthout numeric double  numeric FALSE   
# alongwith       integer integer numeric TRUE    
# from            integer integer numeric TRUE    
# lengthout       integer integer numeric TRUE    
# binary          integer integer numeric TRUE    

阅读帮助文件非常有用。我绝对不是这方面的专家，所以如果我在这里有任何错误，请让我知道。这里有更多的东西来激发好奇心：

is.integer(1)
# [1] FALSE
is.integer(1L)
# [1] TRUE