Need to improve frame_calendar() in conjunction with group_by()

[earowang]

library(tidyverse)
#> ── Attaching packages ───────────────────────────── tidyverse 1.2.1 ──
#> ✔ ggplot2 2.2.1     ✔ purrr   0.2.4
#> ✔ tibble  1.3.4     ✔ dplyr   0.7.4
#> ✔ tidyr   0.7.2     ✔ stringr 1.2.0
#> ✔ readr   1.1.1     ✔ forcats 0.2.0
#> ── Conflicts ──────────────────────────────── tidyverse_conflicts() ──
#> ✖ dplyr::filter() masks stats::filter()
#> ✖ dplyr::lag()    masks stats::lag()
library(sugrrants)
sml_flagstaff <- pedestrian %>% 
  filter(Sensor_Name == "Flagstaff Station", Month == "January")
sx <- pedestrian %>% 
 filter(Sensor_Name == "Southern Cross Station")  
ped <- bind_rows(sml_flagstaff, sx) %>% 
  filter(Year == 2016)
p <- ped %>%
  group_by(Sensor_Name) %>% 
  frame_calendar(Time, Hourly_Counts, Date) %>% 
  ggplot(aes(.Time, .Hourly_Counts, group = Date)) +
  geom_line() +
  facet_wrap(~ Sensor_Name)
prettify(p)