nearing the end of dplyr pt 2