data(economics, package = "ggplot2")
ggplot2::ggplot(economics, ggplot2::aes(psavert, pce, colour = unemploy)) +
ggplot2::geom_point() +
scale_colour_broc(reverse = TRUE, midpoint = 12000)
ggplot2::ggplot(economics, ggplot2::aes(psavert, pce, colour = unemploy)) +
ggplot2::geom_point() +
scale_colour_berlin(midpoint = 9000)
Run the code above in your browser using DataLab