创建频率表多个变量-不同的行数

Question

我是 R 新手，如果这是一个基本问题，我深表歉意。我有一个 data.frame，其中所有 14 个变量都是因素。我有 11 个测量变量，它们是 10 个不同级别中的 1 个，但并非所有变量都包含所有级别。我想创建一个频率表，其中测量变量作为列，水平作为所有 11 个测量变量的行。

我的data.frame的结构如下：

Publication: Factors.. 2 levels
Year: Factors... 5 levels
Energy Type: Factors... 6 levels
AQ: Factors... 3 levels
CA:  Factors... 9 levels
CCM: Factors... 8 levels
FFR: Factors: 5 levels

（我的表格在显示窗口中的格式不正确）

我想获得一个频率表，其中包括所有测量变量（例如 AQ、CA、CCM、FFR）作为列和水平作为行 - 在变量不包括特定水平的地方插入 NA。

我首先尝试创建多个表，然后使用 rbind——但并非所有测量变量都包括所有级别——因此该表不准确。我尝试了 rbind.fill，它要求输入为 data.frames（而不是表），但这导致将表转换为 data.frames 时遇到困难......我也尝试过重塑和转换数据，但我没有认为重塑是我的问题的解决方案......

感谢任何帮助都是解决此问题的最佳方法。
米歇尔

这是我的表的示例：

Publication         Year    AQ  CCM CA
Bangor Daily News   2006    No  No  No
Bangor Daily News   2006    No  No  R1
Bangor Daily News   2006    No  No  C1
Bangor Daily News   2006    No  No  No
Bangor Daily News   2006    No  No  C1

Answer 1

不确定预期的结果：

数据

dat1 <- structure(list(Publication = structure(c(1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L), .Label = c("1", "2"), class = "factor"), 
Year = structure(c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L
), .Label = c("2004", "2005", "2006", "2007", "2008"), class = "factor"), 
AQ = structure(c(5L, 5L, 2L, 5L, 4L, 3L, 4L, 1L, 4L, 4L), .Label = c("a", 
"b", "c", "d", "e"), class = "factor"), CA = structure(c(3L, 
4L, 5L, 2L, 3L, 5L, 5L, 1L, 3L, 3L), .Label = c("b", "c", 
"d", "e", "f"), class = "factor"), CCM = structure(c(4L, 
1L, 4L, 4L, 1L, 3L, 2L, 4L, 3L, 4L), .Label = c("d", "e", 
"f", "h"), class = "factor")), .Names = c("Publication", 
"Year", "AQ", "CA", "CCM"), row.names = c(NA, -10L), class = "data.frame")

从measured variables创建唯一的元素列表

Un <- unique(unlist(dat1[,3:5]))

将levels设置为Un的levels后，使用table获取每列的频率

res <- sapply(dat1[,3:5], function(x) table(factor(x, levels=levels(Un))))
res[!res] <- NA # change 0's to NA
res 
#   AQ CA CCM
# a  1 NA  NA
# b  1  1  NA
# c  1  1  NA
# d  4  4   2
# e  3  1   1
# f NA  3   2
# h NA NA   5