1# Default scales ------------------------------------------------------------- 2 3#' @export 4#' @rdname scale_viridis 5#' @usage NULL 6scale_colour_ordinal <- function(..., type = getOption("ggplot2.ordinal.colour", getOption("ggplot2.ordinal.fill"))) { 7 type <- type %||% scale_colour_viridis_d 8 if (is.function(type)) { 9 type(...) 10 } else { 11 discrete_scale("colour", "ordinal", ordinal_pal(type), ...) 12 } 13} 14 15 16#' @export 17#' @rdname scale_viridis 18#' @usage NULL 19scale_color_ordinal <- scale_colour_ordinal 20 21#' @export 22#' @rdname scale_gradient 23#' @usage NULL 24scale_colour_datetime <- function(..., 25 low = "#132B43", 26 high = "#56B1F7", 27 space = "Lab", 28 na.value = "grey50", 29 guide = "colourbar") { 30 datetime_scale( 31 "colour", 32 "time", 33 palette = seq_gradient_pal(low, high, space), 34 na.value = na.value, 35 guide = guide, 36 ... 37 ) 38} 39 40#' @export 41#' @rdname scale_gradient 42#' @usage NULL 43scale_color_datetime <- scale_colour_datetime 44 45#' @export 46#' @rdname scale_gradient 47#' @usage NULL 48scale_colour_date <- function(..., 49 low = "#132B43", 50 high = "#56B1F7", 51 space = "Lab", 52 na.value = "grey50", 53 guide = "colourbar") { 54 datetime_scale( 55 "colour", 56 "date", 57 palette = seq_gradient_pal(low, high, space), 58 na.value = na.value, 59 guide = guide, 60 ... 61 ) 62} 63 64 65#' @export 66#' @rdname scale_gradient 67#' @usage NULL 68scale_color_date <- scale_colour_date 69 70#' @export 71#' @rdname scale_viridis 72#' @usage NULL 73scale_fill_ordinal <- function(..., type = getOption("ggplot2.ordinal.fill", getOption("ggplot2.ordinal.colour"))) { 74 type <- type %||% scale_fill_viridis_d 75 if (is.function(type)) { 76 type(...) 77 } else { 78 discrete_scale("fill", "ordinal", ordinal_pal(type), ...) 79 } 80} 81 82ordinal_pal <- function(colours, na.color = "grey50", alpha = TRUE) { 83 pal <- scales::colour_ramp(colours, na.color = na.color, alpha = alpha) 84 function(n) { 85 pal(seq(0, 1, length.out = n)) 86 } 87} 88 89#' @export 90#' @rdname scale_gradient 91#' @usage NULL 92scale_fill_datetime <- function(..., 93 low = "#132B43", 94 high = "#56B1F7", 95 space = "Lab", 96 na.value = "grey50", 97 guide = "colourbar") { 98 datetime_scale( 99 "fill", 100 "time", 101 palette = seq_gradient_pal(low, high, space), 102 na.value = na.value, 103 guide = guide, 104 ... 105 ) 106} 107 108#' @export 109#' @rdname scale_gradient 110#' @usage NULL 111scale_fill_date <- function(..., 112 low = "#132B43", 113 high = "#56B1F7", 114 space = "Lab", 115 na.value = "grey50", 116 guide = "colourbar") { 117 datetime_scale( 118 "fill", 119 "date", 120 palette = seq_gradient_pal(low, high, space), 121 na.value = na.value, 122 guide = guide, 123 ... 124 ) 125} 126 127 128# British to American spellings ---------------------------------------------- 129 130#' @export 131#' @rdname scale_brewer 132#' @usage NULL 133scale_color_brewer <- scale_colour_brewer 134 135#' @export 136#' @rdname scale_brewer 137#' @usage NULL 138scale_color_distiller <- scale_colour_distiller 139 140#' @export 141#' @rdname scale_brewer 142#' @usage NULL 143scale_color_fermenter <- scale_colour_fermenter 144 145#' @export 146#' @rdname scale_colour_continuous 147#' @usage NULL 148scale_color_continuous <- scale_colour_continuous 149 150#' @export 151#' @rdname scale_colour_continuous 152#' @usage NULL 153scale_color_binned <- scale_colour_binned 154 155#' @export 156#' @rdname scale_colour_discrete 157#' @usage NULL 158scale_color_discrete <- scale_colour_discrete 159 160#' @export 161#' @rdname scale_gradient 162#' @usage NULL 163scale_color_gradient <- scale_colour_gradient 164 165#' @export 166#' @rdname scale_gradient 167#' @usage NULL 168scale_color_gradient2 <- scale_colour_gradient2 169 170#' @export 171#' @rdname scale_gradient 172#' @usage NULL 173scale_color_gradientn <- scale_colour_gradientn 174 175#' @export 176#' @rdname scale_steps 177#' @usage NULL 178scale_color_steps <- scale_colour_steps 179 180#' @export 181#' @rdname scale_steps 182#' @usage NULL 183scale_color_steps2 <- scale_colour_steps2 184 185#' @export 186#' @rdname scale_steps 187#' @usage NULL 188scale_color_stepsn <- scale_colour_stepsn 189 190#' @export 191#' @rdname scale_grey 192#' @usage NULL 193scale_color_grey <- scale_colour_grey 194 195#' @export 196#' @rdname scale_hue 197#' @usage NULL 198scale_color_hue <- scale_colour_hue 199 200#' @export 201#' @rdname scale_identity 202#' @usage NULL 203scale_color_identity <- scale_colour_identity 204 205#' @export 206#' @rdname scale_manual 207#' @usage NULL 208scale_color_manual <- scale_colour_manual 209 210#' @export 211#' @rdname scale_viridis 212#' @usage NULL 213scale_color_viridis_d <- scale_colour_viridis_d 214 215#' @export 216#' @rdname scale_viridis 217#' @usage NULL 218scale_color_viridis_c <- scale_colour_viridis_c 219 220#' @export 221#' @rdname scale_viridis 222#' @usage NULL 223scale_color_viridis_b <- scale_colour_viridis_b 224