data %>% 
  mutate_if(is.logical, as.character) %>% 
  mutate_at(paste0('var'), recode, '1'='0', '2'='1', '3'='2', '4'='3') %>% 
  mutate_at(paste0('var', c(65,73,99)), recode, '1'='0', '2'='0', '3'='0', '4'='1')