# NOT RUN {
data(Birthdays)
if (require(mosaic)) {
MI <- Birthdays %>% filter(state == "MI")
gf_point(births ~ date, Birthdays, data = MI)
gf_line(births ~ date, Birthdays, data = MI, color = ~ wday)
gf_line(births ~ date,
data = Birthdays %>% group_by(date) %>% summarise(births = sum(births)))
}
# }
Run the code above in your browser using DataLab