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