theme_fairyfloss

library(ggplot2)
library(dplyr)
library(tidytext)

nintendo <- tribble(
  ~console, ~sales_type, ~sales_million,
  "Nintendo Switch", "Hardware", 52.48,
  "Nintendo Switch", "Software", 310.65,
  "Nintendo 3DS", "Hardware", 75.71,
  "Nintendo 3DS", "Software", 382.22,
  "Wii U", "Hardware", 13.56,
  "Wii U", "Software", 103.01,
  "Wii", "Hardware", 101.63,
  "Wii", "Software", 921.41,
  "Nintendo DS", "Hardware", 154.02,
  "Nintendo DS", "Software", 948.69,
  "Game Boy Advance", "Hardware", 81.51,
  "Game Boy Advance", "Software", 377.42,
  "Game Boy", "Hardware", 118.69,
  "Game Boy", "Software", 501.11,
  "Nintendo GameCube", "Hardware", 21.74,
  "Nintendo GameCube", "Software", 208.57,
  "Nintendo 64", "Hardware", 32.93,
  "Nintendo 64", "Software", 224.97,
  "SNES", "Hardware", 49.10,
  "SNES", "Software", 379.06,
  "NES", "Hardware", 61.91,
  "NES", "Software", 500.01
)

light_purple <- "#B7A0CD"
dark_purple <- "#5A5475"
yellow <- "#E9C062"
mint <- "#C0FFDE"
pink <- "#E3837D"
light_pink <- "#F5B6D0"
white <- "#FFFFFF"
blue <- "#96CBFE"

theme_fairyfloss <- function(base_size = 16) {
  theme_grey(base_size = base_size, base_family = "Courier") +
    theme(
      plot.background = element_rect(fill = dark_purple, colour = light_purple),
      panel.background = element_rect(fill = light_purple),
      panel.grid.major = element_line(colour = blue),
      panel.grid.minor = element_blank(),
      axis.text = element_text(colour = yellow),
      axis.title = element_text(colour = mint),
      plot.title = element_text(colour = pink, hjust = 0.5),
      plot.subtitle = element_text(colour = pink, hjust = 0.5),
      legend.background = element_rect(fill = NA, colour = light_purple),
      legend.title = element_text(colour = light_pink),
      legend.text = element_text(colour = white),
      legend.key = element_rect(fill = NA),
      strip.background = element_rect(fill = light_pink),
      strip.text = element_text(colour = white)
    )
}

ggplot(nintendo, aes(x = sales_million, y = reorder_within(console, sales_million, sales_type))) + 
  geom_col(fill = dark_purple, alpha = 0.75) + 
  scale_y_reordered() + 
  facet_wrap(vars(sales_type), ncol = 2, scales = "free") + 
  labs(x = "Sales (millions)", y = "",
       title = "Nintendo console sales",
       subtitle = "As of December 31, 2019") + 
  theme_fairyfloss()