data(Birthdays)
if (require(lattice)) {
xyplot(births ~ date, Birthdays, subset=state=="CA")
xyplot(births ~ date, Birthdays, subset=state=="CA",
groups=wday, type='l')
if (require(mosaic)) {
xyplot(births ~ date, type='l',
data = Birthdays %>% group_by(date) %>% summarise(births=sum(births)))
}
}
Run the code above in your browser using DataLab