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