In johnmackintosh/popthemes: colour palettes from some 90s pop album covers

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  fig.height = 2,
  fig.width = 3
)

What?

This is a collection of colour palettes based (mainly) on pop album covers.

Featuring:

Aqua (Barbie Girl)
Bangles (In Your Room)
Beck (Midnite Vultures)
Betty Boo (Where Are You Baby)
B*Witched
Deee Lite (Groove is in the Heart)
Kelly Clarkson (All I Ever Wanted)
No Doubt Tragic Kingdom
Rick Astley Never Gonna Give You Up (Remix)
S Club 7 (S Club)
Spice Girls (Spice Up Your Life)
Steps (Step One)

Why?

Because I've done Metallica and classic rock.

The rockthemes has some pop acts featured in it as well, including No Doubt and DeeeLite. They're included here - and the palettes have been tweaked slightly.

Installation

This won't be appearing on CRAN, so please install using the remotes package.

#library(remotes)
#remotes::install_github("johnmackintosh/popthemes")
library(popthemes)
library(ggplot2)
library(dplyr)
library(scales)
library(gapminder)

Palettes

pop_palette("aqua")
pop_palette("bangles")
pop_palette("beck")

pop_palette("boo")
pop_palette("bwitched")
pop_palette("deeelite")

pop_palette("kelly")
pop_palette("nodoubt")
pop_palette("rickroll")

pop_palette("sclub7")
pop_palette("spice")
pop_palette("steps")

ggplot2 use

Colour and fills for ggplot2.

data <- gapminder::gapminder %>% 
    filter(country %in% c("France", "Germany", "Ireland", "Italy", 
                        "Japan", "Norway", "Belarus", "United Kingdom",
                        "Peru"))  %>% 
    mutate(year = as.Date(paste(year, "-01-01", sep = "", format = '%Y-%b-%d')))



ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_aqua() + 
    ggtitle(label = "scale_fill_aqua")  

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_bangles() + 
    ggtitle(label = "scale_fill_bangles")  

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_beck() + 
    ggtitle(label = "scale_fill_beck")  

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_boo() + 
    ggtitle(label = "scale_fill_boo") 

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_bwitched() + 
    ggtitle(label = "scale_fill_bwitched") 

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_deeelite() + 
    ggtitle(label = "scale_fill_deeelite") 

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_kelly() + 
    ggtitle(label = "scale_fill_kelly") 

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_nodoubt() + 
    ggtitle(label = "scale_fill_nodoubt") 

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_rickroll() + 
    ggtitle(label = "scale_fill_rickroll") 

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_sclub() + 
    ggtitle(label = "scale_fill_sclub") 

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_spice() + 
    ggtitle(label = "scale_fill_spice")

ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) +
    geom_area(alpha = 0.8) +
    theme_void() + 
    theme(legend.position = "none") + 
    scale_fill_steps_h() + 
    ggtitle(label = "scale_fill_steps_h")