Economist Plot

How to be an economist

library(ggplot2)
library(ggthemes)
library(magrittr)

pop <- data.frame(
  year = c(2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017), 
  x = c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k"),
  y = c(101, 456, 400, 356, 200, 111, 234, 205, 190, 355, 158)
  )

pop %>% 
  ggplot(aes(year, y, fill = x)) +
  geom_bar(stat = "identity") +
  guides(fill = FALSE) +
  labs(title = "Hello darkness my old friend",
       x = "", 
       y = "",
       caption = "The Economist 2017") +
  theme_economist()

Sick one m8