Tweaked relabelling code to use dplyr::mutate