subset data a bunch of different ways and added a bunch of nice ggplots