这是我的部分数据:
>head(state1)
># A tibble: 6 x 5
date TYP_INT WEATHER pedday intersection
<date> <dbl> <dbl> <dbl> <dbl>
1 2019-01-02 1 2 0.204 1
2 2019-01-04 1 10 0.204 1
3 2019-01-06 1 1 0.204 1
4 2019-01-07 1 1 0.204 1
5 2019-01-10 1 1 0.204 1
6 2019-01-22 1 1 0.612 1
我想让这些数据从一年的第一天开始,到最后一天结束,并为缺失的日期填零。当我试图改变
start_val="2019-01-01"
我收到需要使用类 Date、POSIXlt 或 POSIXct 的消息。我也尝试 %d 让它显示所有天,但这也没有用。
state1<- read_csv(file.choose())
library(padr)
edit<-state1%>%
padr::pad(start_val = as.Date(start_val="2019-01-01"),end_val = max(.$date)) %>%fill_by_value(value = 0)