converting to ggplot and fixing some subsets