# NOT RUN {
library(ggplot2)
ggplot2::ggplot(economics, ggplot2::aes(psavert, pce, colour = unemploy)) +
ggplot2::geom_point() +
scale_color_sunset(midpoint = 12000)
ggplot2::ggplot(economics, ggplot2::aes(psavert, pce, colour = unemploy)) +
ggplot2::geom_point() +
scale_color_BuRd(midpoint = 9000)
ggplot2::ggplot(economics, ggplot2::aes(psavert, pce, colour = unemploy)) +
ggplot2::geom_point() +
scale_color_PRGn(midpoint = 6000)
# }
Run the code above in your browser using DataLab