data(faithfuld, package = "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(reverse = TRUE)
ggplot2::ggplot(faithfuld, ggplot2::aes(waiting, eruptions, fill = density)) +
ggplot2::geom_raster() +
scale_fill_smoothrainbow(range = c(0.25, 1))
Run the code above in your browser using DataLab