library("ggplot2")
p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg,
colour=factor(gear))) +
facet_wrap(~am)
## Standard
p + theme_economist() + scale_colour_economist()
## Stata colors
p + theme_economist(stata=TRUE) + scale_colour_economist(stata=TRUE)
## Darker plot region
p + theme_economist(dkpanel=TRUE) + scale_colour_economist(stata=TRUE)
# Change axis lines to vertical
p + theme_economist(horizontal=FALSE) +
scale_colour_economist() +
coord_flip()
## White panel/light gray background
p + theme_economist_white() +
scale_colour_economist()
## All white variant
p + theme_economist_white(gray_bg=FALSE) +
scale_colour_economist()
## Not run:
# ## The Economist uses ITC Officina Sans
# library(extrafont)
# p + theme_economist(base_family="ITC Officina Sans") +
# scale_colour_economist()
#
# ## Verdana is a widely available substitute
# p + theme_economist(base_family="Verdana") +
# scale_colour_economist()
# ## End(Not run)
Run the code above in your browser using DataLab