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
From Github:
# install.packages("devtools")
devtools::install_github("graflukas138/thewitcher")From CRAN:
install.packages("thewitcher")thewitcher provides 30 different palettes. An overview
can be viewed with the witcher_colors() function:
library(thewitcher)
witcher_colors()
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)
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:
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()
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