gojek-when-v1.R

df_ho %>%
  select(-date, -day) %>%
  gather(key = type, value = time) %>%
  mutate(time = as.POSIXct(paste("2017-01-01", time))) %>%
  ggplot(aes(time, fill=type)) + geom_density(color=NA, alpha=0.4) +
  theme_ipsum_rc(grid="X") +
  labs(title="When do I depart and arrive from home to office?",
       subtitle=paste(month(min(df_ho$date), label=T), year(min(df_ho$date)), '-', 
                      month(max(df_ho$date), label=T), year(max(df_ho$date))),
       caption=paste("Number of trips from home to main office:", nrow(df_ho)),
       x=NULL, y=NULL) + 
  scale_fill_discrete(name="", labels=c('Arrival','Departure')) +
  scale_x_datetime(limits=c(as.POSIXct(paste("2017-01-01", "07:35")), 
                            as.POSIXct(paste("2017-01-01", "08:40"))), 
                   date_breaks='5 min',
                   date_labels='%H:%M') +
  theme(legend.justification=c(1,1), legend.position=c(1,1),
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        axis.text.y=element_blank())