In DrMattG/vikingR: Creates a Viking Era ggplot2 palette

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(vikingR)
library(tidyverse, quietly = TRUE)
theme_set(theme_minimal())

Colour by discrete variable using default palette

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
  geom_point(size = 4) +
  scale_colour_viking()

Colour by numeric variable with Gul (Gold/Yellow) palette

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4, alpha = .6) +
  scale_colour_viking(discrete = FALSE, palette = "Gul")

Fill by discrete variable with "Alle" palette

data("topNorName1880to2020")
topNorName1880to2020%>% 
  ggplot(aes(reorder(name,n),n, fill=name)) +
  geom_histogram(stat="identity") +
  scale_fill_viking(palette = "Alle", guide = "none")+
  labs(x="", y= "Frequency in the top 10 boys names in Norway")+
  coord_flip()+
  theme_classic()