as.matrix 不保留空 data.frame 的数据模式

Question

我今天发现了一些奇怪的东西，我想问你我所看到的是否有合理的原因，或者你是否认为这是一个应该报告给 R-devel 团队的错误：

df <- data.frame(a = 1L:10L)
class(df$a)
# [1] "integer"
m <- as.matrix(df)
class(m[, "a"])
# [1] "integer"

到目前为止不足为奇：as.matrix 保留数据模式，这里是“整数”。但是，使用空（无行）data.frame：

df <- data.frame(a = integer(0))
class(df$a)
# [1] "integer"
m <- as.matrix(df)
class(m[, "a"])
# [1] "logical"

知道为什么这里的模式从“整数”变为“逻辑”吗？我使用的是 2.13.1 版

谢谢。

Answer 1

这是因为as.matrix.data.frame中的这一行：

if (any(dm == 0L)) return(array(NA, dim = dm, dimnames = dn))

基本上，如果任何维度为零，您将获得一个“完整”的NA 数组。我说“完整”是因为实际上没有任何观察值，因为其中一个维度为零。

类是logical 的原因是因为那是NA 的类。其他类有特殊的NA，但在这里它们并不是必需的。例如：

> class(NA)
[1] "logical"
> class(NA_integer_)
[1] "integer"
> class(NA_real_)
[1] "numeric"
> class(NA_complex_)
[1] "complex"
> class(NA_character_)
[1] "character"