Slide 9
Slide 9 text
flights %>%
group_by(year, month, day) %>%
select(arr_delay) %>%
summarise(arrival.delay = median(arr_delay, na.rm = TRUE),
num.flights = n()) %>%
arrange(year, month, day) %>%
mutate(date = date_from_tup(year, month, day),
weekday = weekday_from_tup(year, month, day)) %>%
ggplot(aes(y=arrival.delay, x=date, colour=weekday)) +
geom_point() + scale_color_brewer(type="qual")