ggplot2 r bar graph of unanswered after 72 hours of Firefox desktop questions

# Plot unanswered after 72 hours Firefox Desktop Questions April-October 2017 by day of week
csv_url = "https://raw.githubusercontent.com/rtanglao/sumo-questions/master/firefox_desktop_only_not_answered_in_72hours_id_created.csv"
unanswered_desktop_april_october_2017 = 
  read_csv(csv_url)
daynumber_of_week_abbrevDayName_hour <-
  unanswered_desktop_april_october_2017 %>% 
  rowwise() %>%
  mutate(daynumber_abbrevDayName = strftime(as.Date(created),'%u-%a',
         tz = "America/Vancouver")) %>% 
  rowwise() %>%
  mutate(hour = strftime(created,'%H',tz = "America/Vancouver"))
p = ggplot(data=daynumber_of_week_abbrevDayName_hour, aes(x=hour)) +
  geom_bar(stat="count")+
  facet_wrap(~ daynumber_abbrevDayName)