rev_level <- function(x) {
  levs <- levels(x)
  x <- fct_rev(x)
  x <- fct_relabel(x, ~ levs)
  return(x)
}