R/five_number_summary.R

In tidybins: Make Tidy Bins

#' five number summary
#'
#' The five number summary of a numeric vector you would get from `summary` but returned with a tidy output.
#'
#' @param x a numeric vector
#'
#' @return a tibble
#' @export
#'
#' @examples
#'
#' iris$Petal.Width %>%
#' five_number_summary()
five_number_summary <- function(x) {
  x %>%
    summary %>%
    tibble::enframe() %>%
    t() %>%
    janitor::row_to_names(1) %>%
    tibble::as_tibble() %>%
    purrr::map_df(as.numeric) %>%
    rlang::set_names(c("min", "q1", "median", "mean", "q3", "max"))

}