#dplyr successful travis build times

dplyr5000.md

library(tidyverse)
library(dplyr5000)

dplyr5000 %>%
  mutate(time_min = as.numeric(finished_at - started_at) / 60 ) %>%
  filter(time_min > 0, state == "passed") %>%
  ggplot(aes(x=finished_at, y = time_min)) +
  geom_point() +
  geom_smooth(method = "auto", formula = y ~ x, se = FALSE, size = 2, color = "#9900CC") +
  coord_cartesian( ylim = c(0,60)) + 
  labs( title = "#dplyr successful travis build times" ) + 
  xlab("") + ylab("build time")
#> `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'

^{Created on 2018-10-10 by the reprex package (v0.2.1)}