(qplot(hp, mpg, data=mtcars, geom='point')
+ scale_colour_wsj('colors6', '')
+ ggtitle('Diamond Prices')
+ theme_wsj())
## Use a gray background instead
(qplot(hp, mpg, data=mtcars, geom='point')
 + scale_colour_wsj('colors6', '')
 + ggtitle('Diamond Prices')
 + theme_wsj(color='gray'))Run the code above in your browser using DataLab