那么，为什么在实际起飞时间中会看到这种模式呢？嗯，就像许多由人工收集的数据一样，航班起飞时间强烈偏向于“合适”的起飞时间。每当你处理涉及人类判断的数据时，都要警惕这类模式！

ggplot(sched_dep, aes(minute, n)) + geom_line()

取整

绘制各个组成部分的另一种方法是将日期取整到附近的时间单位，使用 floor_date()、round_date() 和 ceiling_date()。每个 ceiling_date() 函数接受一个待调整的日期向量，然后是要向下取整（floor）、向上取整（ceiling）或取整到的单位名称。例如，这使我们可以绘制每周的航班数量：

flights_dt %>% count(week = floor_date(dep_time, "week")) %>% ggplot(aes(week, n)) + geom_line()