mix different color ramps
Usage
mixColorRamps(vars, ramps)
mixColor1Ramps(vars, ramps = colorRamp(c("blue", "black", "red")))
mixColor2Ramps(
vars,
ramps = list(colorRamp(c("blue", "green")), colorRamp(c("blue", "red")))
)
mixColor3Ramps(
vars,
ramps = list(colorRamp(c("#001A00", "#00E600")), colorRamp(c("#00001A", "#0000E6")),
colorRamp(c("#1A0000", "#E60000")))
)
Examples
cols <- expand.grid(x = seq(0, 1, length.out = 10),
y = seq(0, 1, length.out = 10),
z = seq(0, 1, length.out = 10))
mixed <- mixColor3Ramps(cols)
if (FALSE) {
if(requireNamespace("rgl", quietly = TRUE)) {
rgl::plot3d(cols$x, cols$y, cols$z, col = mixed, pch = 15)
}
cols <- expand.grid(x = seq(0, 1, length.out = 10),
y = seq(0, 1, length.out = 10))
mixed <- mixColor2Ramps(cols)
if(requireNamespace("graphics", quietly = TRUE)) {
plot(cols$x, cols$y, col = mixed, pch = 15)
}
}