```{r ex13-solution} babynames %>% group_by(year, sex) %>% summarise(total = sum(n)) %>% ggplot() + geom_line(aes(x= year, y= total, color = sex)) #total = sum(n) ```