ANLY 502 Lab 1A

ggplot(data = arbuthnot, mapping = aes(x=year))+
  geom_line(mapping = aes(y = boys, color = "boys"))+
  geom_point(mapping = aes(y = boys, color = "boys"))+
  geom_line(mapping = aes(y = girls, color = "girls"))+
  geom_point(mapping = aes(y = girls, color = "girls"))+
  geom_line(mapping = aes(y = total, color = "total"))+
  geom_point(mapping = aes(y = total, color = "total"))+
  labs(x="Year", y="Number", title = "Boys, Girls, and Total over the Years")+
  scale_color_manual(values = c("boys" = "blue", "girls" = "red", "total" = "black"))