Sales of cigarettes per adult per day

[jbengler]

Plot

Code

library(tidyverse)
library(tidyplots)

df <- 
  read_csv("https://tidyplots.org/data/sales-of-cigarettes-per-adult-per-day.csv") %>% 
  mutate(
    cigarettes = `Manufactured cigarettes sold per adult per day`,
    Entity = fct_relevel(Entity, "France", "Germany", "United States"),
    Entity = fct_rev(Entity)
    )

df %>% 
  tidyplot(x = Year, y = cigarettes, color = Entity) %>% 
  add_mean_line(linewidth = 0.5) %>% 
  add_title("Sales of cigarettes per adult per day") %>% 
  add_caption("Forey et al. – International Smoking Statistics") %>% 
  theme_minimal_y() %>% 
  adjust_y_axis(limits = c(0,11)) %>% 
  adjust_size(100, 50) %>% 
  adjust_colors(c("France" = "#F6C54D","Germany" = "#C02D45","United States" = "#4DACD6"),
                na.value = "lightgrey") %>% 
  adjust_legend_position("top") %>% 
  remove_legend_title() %>% 
  remove_y_axis_title() %>% 
  adjust_title(face = "bold", fontsize = 12)