R/scale-radius.R

In houyunhuang/ggtriangle: Fast processing of matrix heatmap

#' Scale radius
#' @inheritParams ggplot2::scale_size
#' @param midpoint the midpoint (in data value) of the diverging scale. Defaults to 0.
#' @rdname scale_radius
#'
#' @importFrom scales rescale_pal
#' @importFrom ggplot2 continuous_scale
#' @export
scale_radius_area <- function(..., range = c(-1, 1), midpoint = 0, guide = "none") {
  ggplot2::continuous_scale("r0", "area",
                   palette = scales::rescale_pal(range),
                   rescaler = mid_rescaler(midpoint), guide = guide, ...)
}