Miss Universe Dti No Vip. SWRP10. Brookfield water Park. R replace values in column based on condition dplyr.