# NOT RUN {
library(ggplot2)
p <- qplot(1:10, 1:10, geom = "point")
p + theme_readthedown()
p + theme_readthedown(base_family = "Lato")
p + theme_readthedown(base_family = "Roboto Slab", axis_emph = "x")
# }
Run the code above in your browser using DataCamp Workspace