economist-charts

data %>%
  mutate(page = fct_relevel(page, levels = c("Saving Labour", "Andy Burnham", "Owen Smith", "Momentum", "Labour Party", "Jeremy Corbyn"))) %>%
  filter(!is.na(average_number_of_likes_per_facebook_post_2016)) %>%
  ggplot(aes(x = page, y = average_number_of_likes_per_facebook_post_2016)) +
  geom_col() + 
  coord_flip() +
  theme_economist() + 
  theme(axis.title.x = element_blank(), axis.title.y = element_blank(), 
        axis.line.x.bottom = element_blank()) + 
  scale_y_continuous(breaks = seq(0, 6000, by = 1000),
                     label = c("0", "1", "2", "3", "4", "5", "6"),
                     position = "top") + 
  labs(title = "Left-click",
       subtitle = "Average number of likes per Facebook post 2016, '000",
       caption = "Source: Facebook") 

## Warning: Outer names are only allowed for unnamed scalar atomic inputs