Recode multiple variables using across, case_when and rec (sjmisc)

Question

I\'ll start with some example data:

set.seed(1)
exampledata <- data.frame(
  a = sample(1:5, 10, replace = TRUE),
  b = sample(1:5, 10, replace = TRUE),
  c =