如何将使用 table 命令获得的列联表转换为数据框答案

【问题标题】：How to convert contingency table obtained using table command to dataframe如何将使用 table 命令获得的列联表转换为数据框
【发布时间】：2016-08-06 08:07:37
【问题描述】：

我正在尝试使用 r 中的表函数来创建列联表。但我得到的不是列联表，而是值（而不是表），两个列表。

我的数据有 15000 个观察值和 2 个变量。数据如下所示：

      **Field.Label**                     |**Form.Name**
      ------------------------------------|---------------
      Applicant Name                      |F1
      ------------------------------------|---------------
      Phone                               |F1
      ------------------------------------|---------------
      Address                             |F1
      ------------------------------------|---------------
      Phone                               |F2
      ------------------------------------|---------------
      Address                             |F2
      ------------------------------------|---------------
      Title                               |F2
      ------------------------------------|---------------
      Phone                               |F3
      ------------------------------------|---------------
      ...                                 |...

我使用了以下代码：

      CTable<-table(mydata$Field.Label, mydata$Form.Name)
      CTable<-as.data.frame(CTable)
      View(CTable)

得到这样的结果，有 1,665,495 个条目（Field.Label 有 8,541 个级别，Form.Name 有 195 个级别。8,541 * 195 = 1,665,495）：

      ** Field.Label**                    |** Form.Name** |**Freq**
      ------------------------------------|---------------|-----------
      Applicant Name                      |F1             |1
      ------------------------------------|---------------|-----------
      Phone                               |F1             |1
      ------------------------------------|---------------|-----------
      Address                             |F1             |1
      ------------------------------------|---------------|-----------
      Title                               |F1             |0
      ------------------------------------|---------------|-----------
      Applicant Name                      |F2             |0
      ------------------------------------|---------------|-----------
      Phone                               |F2             |1
      ------------------------------------|---------------|-----------
      Address                             |F2             |1
      ------------------------------------|---------------|-----------
      Title                               |F2             |1
      ------------------------------------|---------------|-----------
      Applicant Name                      |F3             |0
      ------------------------------------|---------------|-----------
      Phone                               |F3             |1
      ------------------------------------|---------------|-----------
      Address                             |F3             |0
      ------------------------------------|---------------|-----------
      Title                               |F3             |0
      ------------------------------------|---------------|-----------
      ...                                 |...

我怎样才能得到如下列联表的结果？

                                      |**F1** |**F2** |**F3** |
  ------------------------------------|-------|-------|-------|
  Applicant Name                      | 1     |0      |0      |
  ------------------------------------|-------|-------|-------|
  Phone                               | 1     |1      |1      |
  ------------------------------------|-------|-------|-------|
  Address                             | 1     |1      |0      |
  ------------------------------------|-------|-------|-------|
  Title                               | 0     |1      |0      |
  ------------------------------------|-------|-------|-------|

谢谢！

【问题讨论】：

搜索“reshape wide”或“dcast”，你会找到你想要的。
如果@lmo 的评论没有为您提供足够的线索，我建议您重新格式化您的示例以供我们使用。这些可能看起来不错，但我不打算尝试手动输入所有这些来帮助您（抱歉）。我建议阅读reproducible examples。
只是不要使用as.dataframe 部分，该值将保持在一个相当宽的表中。 as.data.frame.table 将宽格式对象（继承自 matrix）转换为规范化列表版本。
@lmo 我已经尝试过了，但对我没有用。感谢您的投入。
@r2evans 感谢您向我指出可重现的示例。这很有帮助！

标签： r pivot contingency

【解决方案1】：

Data.Table 解决方案：

library("data.table")
mydata <- fread('Field.Label,Form.Name
                 Applicant,F1
                 Phone,F1
                 Address,F1
                 Phone,F2
                 Address,F2
                 Title,F2
                 Phone,F3')

CTable <- dcast(setDT(mydata), Field.Label ~ Form.Name, fun = length)
CTable
#    Field.Label F1 F2 F3
# 1:     Address  1  1  0
# 2:   Applicant  1  0  0
# 3:       Phone  1  1  1
# 4:       Title  0  1  0
class(CTable)
# [1] "data.table" "data.frame"

Base R 解决方案：

CTable <- table(mydata$Field.Label, mydata$Form.Name)
CTable <- data.frame(matrix(CTable, nrow = dim(CTable)[1], dimnames = dimnames(CTable)))
CTable
#           F1 F2 F3
# Address    1  1  0
# Applicant  1  0  0
# Phone      1  1  1
# Title      0  1  0
class(CTable)
# [1] "data.frame"

【讨论】：

Base R 解决方案运行良好。使用这种方法，我不需要输入所有变量名。谢谢，@Sathish！
是的，从现在开始我会确保这样做。感谢您提供有关如何操作的提示！