下载了1000＊6个左右的1周数据，但是其中有部分时间缺失（数据太多，人工补全工作量太大），用r语言如何自动补全这些时间（时间之间的差值为7天），并把缺失时间对应的数据都赋值为0？