周末的航班较少，因为大多数出行是为了商务。这种效应在周六尤为明显：你有时可能会在周日出发去参加周一早上的会议，但在周六出发的情况非常罕见，因为你更愿意和家人待在家里。

消除这种强烈模式的一种方法是使用模型。首先，我们拟合模型，并将其预测值叠加显示在原始数据上：

mod <- lm(n ~ wday, data = daily) grid <- daily %>% data_grid(wday) %>% add_predictions(mod, "n") ggplot(daily, aes(wday, n)) + geom_boxplot() + geom_point(data = grid, color = "red", size = 4)

接下来我们计算并可视化残差：

daily <- daily %>% add_residuals(mod) daily %>% ggplot(aes(date, resid)) + geom_ref_line(h = 0) + geom_line()