填充数据框或数据表中的多个列

Question

我有一个如下所示的数据框，并希望填充日期。 请注意，ID 3缺少四天。

df = data.frame(
   id = rep(1,1,1,2,2,3,3,3),
   date = lubridate::ymd("2017-01-01","2017-01-02","2017-01-03",
            "2017-05-10","2017-05-11","2017-01-03",
            "2017-01-08","2017-01-09"),
   type = c("A","A","A","B","B","C","C","C"),
   val1 = rnorm(8),
   val2 = rnorm(8))

df

我尝试了padr包，因为我想要一个快速解决方案，但这似乎不起作用。

?pad
padr::pad(df)
library(dplyr)
df %>% padr::pad(group = c('id'))
df %>% padr::pad(group = c('id','date'))

关于工具或其他包的任何想法，以跨多个列并基于分组填充数据集

编辑： 所以我的df中有三个缺少的日期。 ＆＃34; 2017年1月3日＆＃34;＆＃34; 2017年1月8日＆＃34;＆＃34; 2017年1月9日＆＃34;

因此，我希望最终日期包含三个额外的行 ＃＆34; 2017年1月4日＆＃34;＆＃34; 2017年1月5日＆＃34;＆＃34; 2017年1月6日＆＃34;＆＃34; 2017年1月7日＆＃34 ;