R/lvl_number.R

In pstraforelli/forcatsmisc: Additional functions for forcats

#' Return the numeric position of a level in a factor variable
#'
#' @param f A factor variable
#' @param lvl The level for which the underlying value is returned
#'
#' @return The numeric position of the level
#' @export
#'
#' @examples
#'
#' lvl_number(iris$Species, "versicolor")

lvl_number <- function(f, lvl) {
  match(lvl, levels(f))
}