一步完成分组、总结和转置

Question

我有一个看起来像这样的数据框

      Vehicle Model Month Sales
      A   XXY     1    10
      A   XXY     1   100
      A   XXY     2    40
      A   XXY     3    10
      A   YYX     3    10
      A   YYX     3    33
      B   ZZZ     1    50
      B   ZZY     2    60

我希望可以这样改造：

      Vehicle Model 1 2 3 4 5
       A      XXY  2  1  1  0  0
       A      YYX  0  0  2  0  0
       B      ZZZ  1  0  0  0  0
       B      ZZY  0  1  0  0  0

所以基本上我想 - 按 2 个字段（车辆、型号）分组，然后按月份计算列 "Sales" 中的记录数，并转置数据，使月份成为列和 Vehicle/Model 我的行。另外有些模型可能没有长达 12 个月，但我想显示所有列 1 到 12，如果没有可用数据则保留 0

数据框很大。有什么推荐吗？谢谢

Answer 1

不确定问题的 "one step" 部分。分几步做不行吗？

library(data.table)
s <- "      Vehicle Model Month Sales
      A   XXY     1    10
      A   XXY     1   100
      A   XXY     2    40
      A   XXY     3    10
      A   YYX     3    10
      A   YYX     3    33
      B   ZZZ     1    50
      B   ZZY     2    60"
dt <- fread(s)

dt[, sale_count := .N, by = .(Vehicle, Model, Month)]
dt[, Sales := NULL]
dt <- unique(dt)
dcast(dt, Vehicle + Model ~ Month, value.var = "sale_count")

结果：不可用的月份为 NA 而不是 0。如果需要，您可以将其更改为 0。

   Vehicle Model  1  2  3
1:       A   XXY  2  1  1
2:       A   YYX NA NA  2
3:       B   ZZY NA  1 NA
4:       B   ZZZ  1 NA NA

一步完成分组、总结和转置

Group, Summarize and transpose in one step

r

group-by

transpose

summarize