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"))))

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)

## Not run: 
library(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)

## End(Not run)

plot(cols$x, cols$y, col = mixed, pch = 15)