Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- delay <- flights_tbl %>%
- group_by(tailnum) %>%
- summarise(count = n(), dist = mean(distance), delay = mean(arr_delay)) %>%
- filter(count > 20, dist < 2000, !is.na(delay)) %>%
- collect
- # plot delays
- library(ggplot2)
- ggplot(delay, aes(dist, delay)) +
- geom_point(aes(size = count), alpha = 1/2) +
- geom_smooth() +
- scale_size_area(max_size = 2)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement