R/plot_histogram.R

In justinmarschall/vasco: An R Package for Exploring Your Data

#' Plot Histogram
#'
#' Plot a histogram distribution for all numeric variables.
#'
#' @param df A data frame.
#' @param n_bins Number of bins to pass to geom_histogram().  Defaults to 30.
#' @param n Threshold for max number of plots.  Defaults to 50.
#' @param ... Optional arguments passed to geom_histogram().
#'
#' @details The argument n sets the max number of plots allowed by the plotting function.
#' This is done to prevent producing a large number of plots by accident.
#' Change this value to override the default of 50.
#'
#' @export
#'
#' @examples
#' plot_histogram(iris)
plot_histogram <- function(df, n_bins = 30, n = 50, ...) {
  plot_vars <- get_numeric_vars(df)

  plot_check(plot_vars, n)

  purrr::map(plot_vars, function(x) {
    x_en <- rlang::ensym(x)

    ggplot2::ggplot(df, ggplot2::aes(!!x_en)) +
      ggplot2::geom_histogram(bins = n_bins, ...) +
      ggplot2::labs(y = "Frequency",
                    title = paste("Distribution of", x)) +
      ggplot2::theme_minimal()

  })

}