A simple way to recode variables based on other variables using mutate and case_when from the tidyverse.