1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/scale_divergingx.R
\name{scale_colour_continuous_divergingx}
\alias{scale_colour_continuous_divergingx}
\alias{scale_color_continuous_divergingx}
\alias{scale_fill_continuous_divergingx}
\title{HCL-Based Continuous Flexible Diverging Scales for ggplot2}
\usage{
scale_colour_continuous_divergingx(palette = "Geyser", c1 = NULL,
c2 = NULL, c3 = NULL, l1 = NULL, l2 = NULL, l3 = NULL,
h1 = NULL, h2 = NULL, h3 = NULL, p1 = NULL, p2 = NULL,
p3 = NULL, p4 = NULL, cmax1 = NULL, cmax2 = NULL, rev = FALSE,
begin = 0, end = 1, mid = 0, na.value = "grey50",
guide = "colourbar", n_interp = 11, aesthetics = "colour", ...)
scale_color_continuous_divergingx(palette = "Geyser", c1 = NULL,
c2 = NULL, c3 = NULL, l1 = NULL, l2 = NULL, l3 = NULL,
h1 = NULL, h2 = NULL, h3 = NULL, p1 = NULL, p2 = NULL,
p3 = NULL, p4 = NULL, cmax1 = NULL, cmax2 = NULL, rev = FALSE,
begin = 0, end = 1, mid = 0, na.value = "grey50",
guide = "colourbar", n_interp = 11, aesthetics = "colour", ...)
scale_fill_continuous_divergingx(..., aesthetics = "fill")
}
\arguments{
\item{palette}{The name of the palette to be used.}
\item{h1, h2, h3, c1, c2, c3, l1, l2, l3, p1, p2, p3, p4, cmax1, cmax2}{Parameters to customize the scale. See \code{\link{divergingx_hcl}} for details.}
\item{rev}{If \code{TRUE}, reverses the order of the colors in the color scale.}
\item{begin}{For sequential scales, number in the range of \code{[0, 1]} indicating to which point in the color scale the
smallest data value should be mapped. Ignored for diverging scales.}
\item{end}{For sequential scales, number in the range of \code{[0, 1]} indicating to which point in the color scale the
largest data value should be mapped. Ignored for diverging scales.}
\item{mid}{For diverging scales, data value that should be mapped to the mid-point of the diverging
color scale. Ignored for sequential scales.}
\item{na.value}{Color to be used for missing data points.}
\item{guide}{Type of legend. Use \code{"colourbar"} for continuous color bar.}
\item{n_interp}{Number of discrete colors that should be used to interpolate the continuous color scale.
For diverging scales, it is important to use an odd number to capture the color at the midpoint.}
\item{aesthetics}{The ggplot2 aesthetics to which this scale should be applied.}
\item{...}{common continuous scale parameters: `name`, `breaks`, `labels`, and `limits`. See
\code{\link[ggplot2]{continuous_scale}} for more details.}
}
\description{
Continuous ggplot2 color scales using the color palettes generated by \code{\link{divergingx_hcl}}.
}
\details{
Available CARTO palettes: ArmyRose, Earth, Fall, Geyser, TealRose, Temps, Tropic.
Available ColorBrewer.org palettes: Spectral, PuOr, RdYlGn, RdYlBu, RdGy,
BrBG, PiYG, PRGn, RdBu.
If both a valid palette name and palette parameters are provided then the provided palette parameters overwrite the parameters in the
named palette. This enables easy customization of named palettes.
}
\examples{
# *** Examples for sequential CARTO scales ***
# base plot
library(ggplot2)
gg <- ggplot(iris, aes(x = Species, y = Sepal.Width, color = Sepal.Length)) +
geom_jitter(width = 0.3) + theme_minimal()
# default settings
gg + scale_color_continuous_divergingx()
# switch palette to ArmyRose
gg + scale_color_continuous_divergingx(palette = "ArmyRose")
# select a range out of the entire palette
gg + scale_color_continuous_divergingx(palette = "ArmyRose", begin = .2, end = .8)
# volcano plot
nx = 87
ny = 61
df <- data.frame(height = c(volcano), x = rep(1:nx, ny), y = rep(1:ny, each = nx))
ggplot(df, aes(x, y, fill=height)) +
geom_raster() + scale_fill_continuous_divergingx(palette = "Fall", rev = TRUE) +
coord_fixed(expand = FALSE)
# *** Examples for diverging CARTO scales ***
# adapted from stackoverflow: https://stackoverflow.com/a/20127706/4975218
# generate dataset and base plot
library(ggplot2)
set.seed(100)
df <- data.frame(country = LETTERS, V = runif(26, -40, 40))
df$country = factor(LETTERS, LETTERS[order(df$V)]) # reorder factors
gg <- ggplot(df, aes(x = country, y = V, fill = V)) +
geom_bar(stat = "identity") +
labs(y = "Under/over valuation in \%", x = "Country") +
coord_flip() + theme_minimal()
# plot with diverging scale "Geyser"
gg + scale_fill_continuous_divergingx(palette = "Geyser")
# plot with diverging scale "ArmyRose"
gg + scale_fill_continuous_divergingx(palette = "ArmyRose")
}
|
