high-contrast.r

# As seen at https://topfunky.com/2021/ggplot-high-contrast-theme-gghighcontrast/

foreground_color = "white"
background_color = "black"

ggplot(data,
       aes(
         x = year,
         y = revenue,
         group = product,
         linetype = product
       )) +
geom_line(color = foreground_color,
          size = 1) +
theme_high_contrast(
  foreground_color = foreground_color,
  background_color = background_color
) +
theme(legend.position = "none") +
scale_linetype_high_contrast() +
labs(title = "CRT Sales, 1979-1982",
     subtitle = "Non-GAAP, worldwide",
     caption = "Data from example.com")