library(ggplot2) theme_set(theme_minimal())
dsamp <- diamonds[sample(nrow(diamonds), 1000), ] d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity), size = 3) d <- ggplot(dsamp, aes(depth, price)) + geom_point(aes(colour = cut), size = 3) d + spectralscale::colour_d()
d + spectralscale::colour_d(rev = TRUE)
d + spectralscale::colour_d("warm")
d + spectralscale::colour_d("cold")
d + spectralscale::colour_d("div") # same as default
d + spectralscale::colour_d("qual")
d + spectralscale::colour_d("pair")