R/plot_dist.R

In jsdtools: Jensen-Shannon Divergence Estimation, Confidence Intervals, and Distribution Plots

#' Plot two-group distributions
#'
#' Unified front-end for plotting continuous or discrete two-group raw
#' distributions.
#'
#' @param x First vector.
#' @param y Second vector.
#' @param type One of `"auto"`, `"continuous"`, or `"discrete"`.
#' @param ... Additional arguments passed to the type-specific plotting function.
#'
#' @return Invisibly returns plotting data.
#' @export
plot_dist <- function(x, y,
                      type = c("auto", "continuous", "discrete"),
                      ...) {
  type <- match.arg(type)

  if (type == "auto") {
    type <- detect_type(x, y)
  }

  switch(
    type,
    continuous = plot_continuous(x, y, ...),
    discrete = plot_discrete(x, y, ...),
    stop("Unsupported type.")
  )
}