在数据框中添加与缺少日期相对应的行

Question

我有一个带有2个变量和多个Product_Id的数据框。对于某些ID，缺少某些日期。

library(dplyr)

df <- data.frame(Product_Id = rep(1:100, each = 50), 
                 Date = seq(from = as.Date("2008/1/1"), to = as.Date("2018/2/1") , by = "month"), 
                 Sales = rnorm(100, mean = 50, sd= 20))
df <- df[-c(1,4,67,78,251:256, 301:312, 2551:2562, 2651:2662, 2751:2762), ]
x <- count(df, vars = Product_Id)
View(df)

是否仍然要创建一个数据帧，其中包含按正确顺序排列的所有Dates以及Product_Id和对应于Sales的空单元格？