You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
774 B
27 lines
774 B
ipsum_palette <- c("#d18975", "#8fd175", "#3f2d54", "#75b8d1", "#2d543d", "#c9d175", "#d1ab75", "#d175b8", "#758bd1")
|
|
|
|
#' A muted, qualitative color palette
|
|
#'
|
|
#' @export
|
|
#' @examples
|
|
#' library(scales)
|
|
#' scales::show_col(ipsum_pal()(9))
|
|
ipsum_pal <- function() { manual_pal(ipsum_palette) }
|
|
|
|
#' Discrete color & fill scales based on the ipsum palette
|
|
#'
|
|
#' See [ipsum_pal()].
|
|
#'
|
|
#' @md
|
|
#' @inheritDotParams ggplot2::discrete_scale -expand -position
|
|
#' @rdname scale_ipsum
|
|
#' @export
|
|
scale_colour_ipsum <- function(...) { discrete_scale("colour", "ipsum", ipsum_pal(), ...) }
|
|
|
|
#' @export
|
|
#' @rdname scale_ipsum
|
|
scale_color_ipsum <- scale_colour_ipsum
|
|
|
|
#' @export
|
|
#' @rdname scale_ipsum
|
|
scale_fill_ipsum <- function(...) { discrete_scale("fill", "ipsum", ipsum_pal(), ...) }
|