using dplyr with outlier replacement