R/stat_get_mode.R

In maxbre/rfunctions: A mixed collection of my handy R functions

#' Helper function to calculate the mode
#'
#' Get the mode of a numeric vector.
#'
#' @param v a numeric vector
#' @return get the mode (the most frequent value)
#' @export
#' @examples
#' v<- c(NA, 19, 4, 5, 7, 29, 19, 29, 13, 25, 19, 19)
#' stat_get_mode(v)

stat_get_mode <- function(v) {

  # this is dealing with NA
  uniqv <- stats::na.omit(unique(v))

  uniqv[which.max(tabulate(match(v, uniqv)))]

}