A stunning dual-y-axis chart to commemorate the reduction of people in the office called Bertha (not actual name) and the ensuing sadness.

berthas-sadness.R

library(ggplot2)
library(ggthemes)
library(extrafont)
font_import()  # might take a minute
loadfonts(device = "win")

df <- data.frame(
  Time    = 1:3,
  Berthas = 2:0,
  Sadness = 0:2
)

ggplot(df)  + 
  geom_bar(aes(Time, Berthas), stat = "identity") +
  scale_y_continuous(sec.axis = sec_axis(~., name = "Sadness")) +
  geom_point(aes(Time, Sadness), size = 3) +
  geom_path(aes(Time, Sadness), linewidth = 1) +
  labs(
    title = "Very important graph",
    subtitle = "Such y axes, very datums",
    caption = "Copyright forever and ever: Matt Dray" 
  ) +
  theme_excel() +
  theme(
    text = element_text(
      size = 16,
      family = "Comic Sans MS"
    )
  )