@@ -251,7 +251,7 @@ flights_dt %>%
|
|||||||
mutate(minute = minute(dep_time)) %>%
|
mutate(minute = minute(dep_time)) %>%
|
||||||
group_by(minute) %>%
|
group_by(minute) %>%
|
||||||
summarise(
|
summarise(
|
||||||
avg_delay = mean(arr_delay, na.rm = TRUE),
|
avg_delay = mean(dep_delay, na.rm = TRUE),
|
||||||
n = n()) %>%
|
n = n()) %>%
|
||||||
ggplot(aes(minute, avg_delay)) +
|
ggplot(aes(minute, avg_delay)) +
|
||||||
geom_line()
|
geom_line()
|
||||||
|
|||||||
Reference in New Issue
Block a user