# Generate a simple blue-white-red palette
pal <- color.palette(c("blue", "white", "red"))
pal(10)
# Add additional steps between colors
pal2 <- color.palette(c("blue", "white", "red"), n.steps.between = c(5, 10))
pal2(20)
Run the code above in your browser using DataLab