Slides 3, split apply combine and first ggplot2 slide