R/categorical-features.R

In dannymorris/colstats: Column-wise statistics for data frames

get_mode <- function(x) {
  table(x) %>%
    which.max() %>%
    names()
}

count_mode <- function(x) {
  table(x) %>%
    max()
}

pct_mode <- function(x) {
  (table(x) / length(x)) %>%
    max() %>%
    round(., 3)
}

count_non_alphanum <- function(x) {
  stringr::str_detect(x, "[^[:alnum:]]") %>%
    sum()
}