data(faithfuld, package = "ggplot2")
ggplot2::ggplot(faithfuld, ggplot2::aes(waiting, eruptions, fill = density)) +
ggplot2::geom_raster() +
scale_fill_batlow()
ggplot2::ggplot(faithfuld, ggplot2::aes(waiting, eruptions, fill = density)) +
ggplot2::geom_raster() +
scale_fill_bamako()
ggplot2::ggplot(faithfuld, ggplot2::aes(waiting, eruptions, fill = density)) +
ggplot2::geom_raster() +
scale_fill_hawaii(reverse = TRUE)
Run the code above in your browser using DataLab