R 添加/填充缺失组合 dcast reshape2 表

Question

这是我的数据表:

Name.1 <- c(rep("IVa",12),rep("VIa",10),rep("VIIb",3),rep("IVa",5))
qrt <- c(rep("Q1",6),rep("Q3",10),rep("Q4",3),rep("Q1",5),rep("Q1",3),rep("Q3",3))
variable <- c(rep("wtTonnes",30))
value <- c(201:230)

df <- data.frame(Name.1,qrt,variable,value)
df1 <- dcast(df, Name.1 ~ qrt, fun.aggregate=sum, value.var="value",margins=TRUE)

它给了我这样的输出；

Name.1  Q1     Q3    Q4    (all)
IVa     1674   1944  0     3618
VIa     663    858   654   2175
VIIb    672    0     0     672
(all)   3009   2802  654   6465

“qrt”值 Q1、Q3、Q4 代表一年中的季度。基本上我希望该表包含缺失的季度并填充 0。因为每年当我运行脚本时，任何季度组合都可能有 wtTonne 值，我不想每次都硬编码以添加任何缺失的内容。

在这种情况下，我希望它看起来像:

Name.1  Q1     Q2    Q3    Q4    (all)
IVa     1674   0     1944  0     3618
VIa     663    0     858   654   2175
VIIb    672    0     0     0     672
(all)   3009   0     2802  654   6465

是否可以在任何阶段将列表或原始数据传递给表格或原始数据来说明我想要哪些列？ (即总是有 Q1、Q2、Q3、Q4)如果需要的话，带有虚拟值。

Answer 1

下面应该给你所需的输出:

 df$qrt <- factor(df$qrt, levels = c("Q1", "Q2", "Q3", "Q4"))
 df1 <- dcast(df, Name.1 ~ qrt, fun.aggregate=sum, value.var="value",margins=TRUE, drop = F)

首先，我告诉R，qrt是一个有相应级别的因子，包括没有出现的级别，然后我告诉dcast 以避免丢弃未使用的组合。这给出:

   Name.1   Q1 Q2   Q3  Q4 (all)
 1    IVa 1674  0 1944   0  3618
 2    VIa  663  0  858 654  2175
 3   VIIb  672  0    0   0   672
 4  (all) 3009  0 2802 654  6465