表格到数据框的转换

Question

我正在尝试将转换 表格 数据框。

例子：

tbl <- structure(c(1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L), .Dim = c(4L, 2L), .Dimnames = structure(list(
c("1", "2", "3", "4"), colNames = c("2013 3", "2014 12")), .Names = c("", "colNames")), class = "table")

colNames
     2013 3 2014 12
1      1       1
2      0       0
3      0       0
4      0       0

转换为数据框会导致完全不同的数据结构。为什么？

as.data.frame(tbl)

Var1 colNames Freq
1    1   2013 3    1
2    2   2013 3    0
3    3   2013 3    0
4    4   2013 3    0
5    1  2014 12    1
6    2  2014 12    0
7    3  2014 12    0
8    4  2014 12    0

Answer 1

嗯，精确 原因在于 “为什么” 是 as.data.frame.table 的源代码（只需在 R 控制台中输入该名称，不要使用其他名称）标点符号可以在控制台中看到）：

function(x, row.names = NULL, ..., responseName = "Freq", 
         stringsAsFactors = TRUE, sep = "", base = list(LETTERS))  {

  ex <- quote(
    data.frame(
      do.call(
        "expand.grid", 
        c(
          dimnames(provideDimnames(x, sep = sep, base = base)), 
          KEEP.OUT.ATTRS = FALSE, 
          stringsAsFactors = stringsAsFactors)
      ), 
      Freq = c(x), row.names = row.names)
  )
  names(ex)[3L] <- responseName
  eval(ex)

}

最终，你拥有什么：

tbl <- structure(
  c(1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L), 
  .Dim = c(4L, 2L), 
  .Dimnames = structure(
    list(
      c("1", "2", "3", "4"), 
      colNames = c("2013 3", "2014 12")
    ), 
    .Names = c("", "colNames")
  ), 
  class = "table"
)

是一个带有一些属性的integer 向量。当您在 R 控制台中键入 tbl 并点击 <ENTER> 时，它正在调用 print.table()（在 R 控制台中输入 print.table 而没有其他标点符号以查看其源代码）它会经过一些循环来打印您所看到的“矩形”数据结构。

要获得您想要的结果，只需执行 print 函数最终会执行的操作（以一种不那么直接的方式）：

as.data.frame.matrix(tbl)

或使用 tidyverse 成语：

as.data.frame(tbl) %>% 
  tidyr::spread(colNames, Freq)
##   Var1 2013 3 2014 12
## 1    1      1       1
## 2    2      0       0
## 3    3      0       0
## 4    4      0       0