clean and create a data set using dplyr