# NOT RUN {
library(ggplot2)
# Sequential data
ggplot(faithfuld, aes(waiting, eruptions, fill = density)) +
geom_raster() +
khroma::scale_fill_YlOrBr()
ggplot(faithfuld, aes(waiting, eruptions, fill = density)) +
geom_raster() +
khroma::scale_fill_smoothrainbow(reverse = TRUE)
# }
Run the code above in your browser using DataLab