Build Status

A sane ggplot2 theme with large text and clean lines, suitable for presentations. Based off the fivethirtyeight theme from ggthemes.

Install using devtools::install_github("eclarke/eclthemes").

library(ggplot2)
library(eclthemes)
library(nycflights13)

flights <- within(flights, {
  dep_time_min <- hour*60 + minute
})

ggplot(flights, aes(dep_time_min, color=origin, group=origin, fill=origin)) +
  geom_density(alpha=0.5) +
  theme_clarity() +
  ylab("Density") +
  xlab("Departure (minutes from midnight)") +
  ggtitle("Outgoing flights by time of day")

To make these plots a little bit more publication quality:

library(grid)
ggplot(mtcars, aes(mpg, group=factor(cyl))) + 
  geom_density(alpha=0.5, aes(color=factor(cyl)), show_guide=FALSE) +
  geom_density(alpha=0.5, aes(fill=factor(cyl)), color=NA) + 
  theme_clarity(base_size = 14) +
  theme(
    axis.line = element_line(size=0.8),
    strip.background = element_blank(),
    strip.text = element_text(hjust=0.5),
    axis.ticks = element_line(size=0.8)
  ) +
  scale_y_continuous(expand = c(0,0), limit=c(0, 0.25)) +
  scale_x_continuous(expand = c(0,0), limit=c(10, 35)) +
  scale_fill_discrete("Cylinders") +
  scale_color_discrete("Cylinders") +
  labs(x="Miles per gallon", y="Density") +
  guides(fill=guide_legend(override.aes = list(alpha=1, color="black")))


eclarke/eclthemes documentation built on May 15, 2019, 7:54 p.m.