R/revfactorlevels.R

In egenn/rtemis: Machine Learning and Visualization

# revfactorlevels.R
# ::rtemis::
# 2022 E.D. Gennatas www.lambdamd.org

#' Reverse factor level order
#'
#' @param x factor
#'
#' @export
#' @author E.D. Gennatas

revfactorlevels <- function(x) {
  if (is.factor(x)) {
    factor(x, levels = rev(levels(x)))
  } else {
    x
  }
} # rtemis::revfactorlevels