powered by
theme_gdocs(base_size = 12, base_family = "sans")
dsamp <- diamonds[sample(nrow(diamonds), 1000), ] (d <- qplot(carat, price, data=dsamp, colour=clarity) + theme_gdocs() + ggtitle("Diamonds") + scale_color_gdocs())
Run the code above in your browser using DataLab