added dplyr to select columns of interest