我想在每个 bodlane 的数据框 DF 中包含缺失的日期
DF:
Bodlane Day Holiday
185_AB1 2020-05-01 True
185_AB1 2020-05-05 True
201_AB1 2020-05-02 True
201_AB1 2020-05-05 True
输出:
Bodlane Day Holiday
185_AB1 2020-05-01 True
185_AB1 2020-05-02 NA
185_AB1 2020-05-03 NA
185_AB1 2020-05-04 NA
185_AB1 2020-05-05 True
201_AB1 2020-05-02 True
201_AB1 2020-05-03 NA
201_AB1 2020-05-04 NA
201_AB1 2020-05-05 True
有人可以帮我获取每个 bodlane 缺少的日期吗?
最佳答案
tidyverse 中的 complete()
函数可以实现您想要的功能:
library(tidyverse)
df <- read_table("Bodlane Day Holiday
185_AB1 2020-05-01 True
185_AB1 2020-05-05 True
201_AB1 2020-05-02 True
201_AB1 2020-05-05 True")
df %>%
group_by(Bodlane) %>%
complete(Day = seq.Date(min(Day), max(Day), by = "d")) %>%
ungroup()
这给出了
Bodlane Day Holiday
<chr> <date> <lgl>
1 185_AB1 2020-05-01 TRUE
2 185_AB1 2020-05-02 NA
3 185_AB1 2020-05-03 NA
4 185_AB1 2020-05-04 NA
5 185_AB1 2020-05-05 TRUE
6 201_AB1 2020-05-02 TRUE
7 201_AB1 2020-05-03 NA
8 201_AB1 2020-05-04 NA
9 201_AB1 2020-05-05 TRUE
关于r - 使用 groupby 另一列填充缺失日期,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61500475/