Wall Street Journal theme

(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'))