如何将完整月份序列添加到数据子集

Question

我很难找到适合以下任务的方法。 我的原始数据框具有以下结构（还有更多gde_nr）：

df <- read.table(header = TRUE, text = "
gde_nr  month amount
  1001      1   4000
  1001      3   1002
  1001      4   1283
  1001      5   4352
  1002      3      2
  1002      4     34
  1002      6     300
")

我的目标是为每个gde_nr创建一个完整的月度序列，如下所示：

df_result <- read.table(header = TRUE, text = "
gde_nr  month amount
  1001      1   4000
  1001      2      0
  1001      3   1002
  1001      4   1283
  1001      5   4352
  1001      6      0
  1001      7      0
  1001      8      0
  1001      9      0
  1001     10      0
  1001     11      0
  1001     12      0
  1002      1      0
  1002      2      0
  1002      3      2
  1002      4     34
  1002      5      0
  1002      6    300
  1002      7      0
  1002      8      0
  1002      9      0
  1002     10      0
  1002     11      0
  1002     12      0
")

在第一步中，我使用了group_by，然后是nest

library(tidyverse)

df %>% 
  group_by(gde_nr) %>% 
  nest()

我的想法：

A）加入包含序列1:12并重复gde_nr的数据帧。 purrr reduce（）可能是一个选项 B）使用map（）

舒尔我对此采取了截然不同的方法。

提前致谢！ 尔根