ggplot(mtcars,aes(x = mpg, y = disp)) + geom_point(aes(colour = factor(cyl))) + scale_colour_brewer(palette="BuPu", direction=-1)