R/scale_x_quantile.R

In MCMaurer/MCMsBasics: Helps Michael Culshaw-Maurer Get Stuff Done

#' Set the x axis scale to continuous with quantile breaks
#'
#' @param val: the column to create breaks from, ie mtcars$wt
#' @param prob: a sequence of probability values, ie c(0, 0.5, 1) or seq(0, 1, 0.25)
#' @param digits: number of digits to round the quantiles to
#'
#' @return a ggplot2 scale
#' @export
#' @import ggplot2
#'
scale_x_quantile <- function(val, prob = seq(0, 1, 0.25), digits = 1, ...) {
  scale_x_continuous(..., trans = quantile_trans(val, prob, digits))
}