library("ggplot2")
p <- ggplot(mtcars) +
geom_point(aes(x = wt, y = mpg, colour = factor(gear))) +
facet_wrap(~am) +
# Economist puts x-axis labels on the right-hand side
scale_y_continuous(position = "right")
## Standard
p + theme_economist() +
scale_colour_economist()
# 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()
if (FALSE) {
## 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()
}
Run the code above in your browser using DataLab