rilo kiley albums as ggkeyboard

rilo kiley albums as ggkeyboard

library(ggkeyboard)
library(ggplot2)
extrafont::loadfonts()

# More adventurous

ggkeyboard(tkl,
  palette = c(
    background = "#FFFFFF",
    keyboard = "#272530",
    accent = "#7F9D53",
    alphanumeric = "#7CA69A",
    modifier = "#7F9D53",
    arrow = "#70393C",
    light = "#D2E7E2",
    text = "#E1E0E6"
  ),
  font_family = "Ashcan BB",
  adjust_text_colour = FALSE,
  font_size = 4
)

ggsave("more_adventurous.png", height = 5, width = 10, dpi = 300)

# Take offs and landings

ggkeyboard(sixty_percent,
  palette = c(
    background = "#FDFDF6",
    keyboard = "#FBF8E7",
    accent = "#E6F1F3",
    alphanumeric = "#FBF8E7",
    modifier = "#E6F1F3",
    text = "#191C13"
  ),
  font_family = "PrimerPrint-Regular",
  font_size = 5
)

ggsave("take_offs_and_landings.png", height = 5, width = 10, dpi = 300)

# Initial friend

ggkeyboard(sixty_percent,
  palette = c(
    background = "#FAE8D1",
    keyboard = "#164B60",
    accent = "#387285",
    alphanumeric = "#F7D9B3",
    modifier = "#387285",
    arrow = "#D8211D",
    text = "#D8211D"
  ),
  font_size = 5,
  font_family = "ChicaGogoNFW01-Regular"
)

ggsave("initial_friend.png", height = 5, width = 10, dpi = 300)

# The execution of all things

ggkeyboard(full,
  palette = c(
    background = "#FFFFFF",
    keyboard = "#F7C7B1",
    accent = "#E4F1FA",
    alphanumeric = "#C7CDE7",
    modifier = "#E4F1FA",
    arrow = "#C7CDE7",
    light = "#D2E7E2",
    text = "#E1E0E6",
    numpad = "#C7CDE7"
  ),
  font_family = "Domestic Manners",
  font_size = 3
)

ggsave("the_execution_of_all_things.png", height = 4, width = 10, dpi = 300)