thewitcher

This is a package designed to implement color palettes inspired by the TV Show, book series and video games The Witcher into R and ggplot2.
The package draws some inspiration from the gameofthrones-package.
Most color palettes are inspired by the 3rd installation of the video games: The Witcher III - Wild Hunt

For questions or suggestions please contact me:

Email: graflukas57@gmail.com

Twitter: https://twitter.com/graf_gruen

Installation

From Github:

# install.packages("devtools")
devtools::install_github("graflukas138/thewitcher")

From CRAN:

install.packages("thewitcher")

Palettes

thewitcher provides 30 different palettes. An overview can be viewed with the witcher_colors() function:

library(thewitcher)

witcher_colors()

Usage

An example of usage for the thewitcher - color scales. The default option is Geralt.

pal <- witcher(255, option = "Geralt")
image(volcano, col = pal)

How about a plot that is inspired by a Witcher school?

pal <- witcher(255, option = "school_griffin")
image(volcano, col = pal)

Or a monster?

pal <- witcher(255, option = "necrophage")
image(volcano, col = pal)

Or a witcher sign?

pal <- witcher(255, option = "axi")
image(volcano, col = pal)

ggplot2

thewitcher provides color scales and functions to use with ggplot2.
If ggplot2 is available you’ll have access to the scale_[colour|fill]_witcher() functions:

Continous data

ggplot(data.frame(x = rnorm(10000), y = rnorm(10000)), aes(x = x, y = y)) +
  geom_hex() + coord_fixed() +
  scale_fill_witcher(option="Geralt") + theme_bw()

ggplot(data.frame(x = rnorm(10000), y = rnorm(10000)), aes(x = x, y = y)) +
  geom_hex() + coord_fixed() +
  scale_fill_witcher(option="Ciri") + theme_bw()

ggplot(data.frame(x = rnorm(10000), y = rnorm(10000)), aes(x = x, y = y)) +
  geom_hex() + coord_fixed() +
  scale_fill_witcher(option="wildhunt") + theme_bw()

ggplot(data.frame(x = rnorm(10000), y = rnorm(10000)), aes(x = x, y = y)) +
  geom_hex() + coord_fixed() +
  scale_fill_witcher(option="leshen") + theme_bw()

Discrete data

Use scale_fill_witcher_d() to plot discrete data.

txsamp <- subset(txhousing, city %in%
  c("Houston", "Fort Worth", "San Antonio", "Dallas", "Austin"))

ggplot(txsamp, aes(x = median, fill = city)) +
  geom_histogram(position = "dodge", binwidth = 15000)+ scale_fill_witcher_d(option = "katakan")+ theme_bw()

Order of colors can be reversed using direction = -1.

txsamp <- subset(txhousing, city %in%
  c("Houston", "Fort Worth", "San Antonio", "Dallas", "Austin"))

ggplot(txsamp, aes(x = median, fill = city)) +
  geom_histogram(position = "dodge", binwidth = 15000)+ scale_fill_witcher_d(option = "katakan", direction = -1) + theme_bw()

“Evil is evil. Lesser, greater, middling… Makes no difference. The degree is arbitrary. The definition’s blurred. If I’m to choose between one evil and another… I’d rather not choose at all.” - Geralt of Rivia