dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(qplot(carat, price, data=dsamp, colour=clarity)
+ theme_solarized()
+ scale_colour_solarized("blue"))
## Dark version
(qplot(carat, price, data=dsamp, colour=clarity)
+ theme_solarized(light=FALSE)
+ scale_colour_solarized("blue"))
## With panels
(qplot(carat, price, data=dsamp) + facet_wrap(~ clarity)
+ theme_solarized()
+ scale_colour_solarized("blue"))
Run the code above in your browser using DataLab