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

这是我的数据表:

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)。

最佳答案

以下应该为您提供所需的输出:

 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

关于R 添加/填充缺失的组合 dcast reshape2 表，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/35510542/