Nothing
# The cmocean('haline') palette is somewhat too dark for my tastes, so
# here are some perceptually-uniform (HCL) palette that I like better.
# Scale x from [0,1] to [range]. In particular, the return value will be
# range[1] at x == 0 and range[2] at x == 1. range[1] is allowed to be
# larger than range[0].
.scl <- function(range, x) if (length(range) == 1) {
rep_len(range, length(x))
} else {
range[1] + diff(range) * x
}
marine.colours <- function(
n, chroma = .65, luminance = c(.35, 1),
alpha = 1, gamma = 1, fixup = TRUE
) {
base <- seq(0, 1, length.out = n) ^ gamma
hcl(
h = .scl(c(280, 60), base), # blue-violet to blue, green, yellow
c = .scl(100 * chroma, base), l = .scl(100 * luminance, base),
alpha = .scl(alpha, base), fixup = fixup
)
}
diverging.colours <- function(
n, chroma = c(.1, .75), luminance = c(1, .35),
alpha = 1, gamma = 1, fixup = TRUE
) {
base <- seq(-1, 1, length.out = n)
sgn <- sign(base)
val <- abs(base) ^ gamma
hcl(
# bright-blue via violet, reds, yellow to bright-green
h = 150 * sgn * val,
# maxima at val == .5, minima at val %in% c(0, 1)
c = .scl(chroma * 100, (1 - abs(1 - 2 * val))),
# maximum at endpoints, minimum exactly in the middle
l = .scl(luminance * 100, val),
alpha = .scl(alpha, val),
fixup = fixup
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.