title: "README.md" author:Philip D. Waggoner date: 4/30/2019 output: html_document
amerika
: An American politics-inspired color palette generatorWith a nod to Franz Kafka's first (and technically incomplete) novel, Amerika, the amerika
package offers a variety of a American-politics inspired color palettes for a host of applications both in an out of politics. Building on Karthik Ram's approach to designing color palettes seen in the wesanderson
package (with permission), amerika
offers a variety of color palettes ranging from blue on the left to gray in the middle and red on the right.
With wide application in mind, the palette options range from only a few colors to several colors, but with discrete and continuous options to offer greatest flexibility to the user. amerika
allows for a range of applications, from mapping brief discrete scales (e.g., three colors for Democrats, Independents, and Republicans) to continuous interpolated arrays including dozens of shades graded from blue to red (e.g., used to visualize "feeling thermometers"). See below for a list of the palettes followed by a few political and non-political examples.
Users simply supply the name of the desired palette in the main function amerika_palette()
, along with the number of colors desired from the palette (e.g., only 4 from a 5-color palette), and whether "continuous" or "discrete" type
mapping is desired.
Republican
: three shades of redDemocrat
: three shades of blueDem_Ind_Rep3
: three colors including blue, gray, and redDem_Ind_Rep5
: five colors including two shades of blue, one shade of gray, and two shades of redDem_Ind_Rep7
: seven colors including three shades of blue, one shade of gray, and three shades of redamerika_palette("Republican")
amerika_palette("Democrat")
amerika_palette("Dem_Ind_Rep3")
amerika_palette("Dem_Ind_Rep5")
amerika_palette("Dem_Ind_Rep7")
type
amerika_palette(50, name = "Republican", type = "continuous")
amerika_palette(50, name = "Democrat", type = "continuous")
amerika_palette(50, name = "Dem_Ind_Rep3", type = "continuous")
amerika_palette(50, name = "Dem_Ind_Rep5", type = "continuous")
amerika_palette(50, name = "Dem_Ind_Rep7", type = "continuous")
library(tidyverse)
data <- data.frame(sample(1:3, 3000, replace=TRUE))
data <- data %>%
rename(pid = sample.1.3..3000..replace...TRUE.) %>%
mutate(Party = recode(pid,
`1` = "Democrat",
`2` = "Independent",
`3` = "Republican")) %>%
as.data.frame()
# Discrete: "political party" on a three point scale (hypothetical for demo purposes only)
ggplot(data, aes(Party)) +
geom_bar(fill=amerika_palette(name = "Dem_Ind_Rep3")) + theme_bw()
# Continuous: "ideology" on a 100 point scale (hypothetical for demo purposes only)
data1 <- data.frame(sample(1:100, 3000, replace=TRUE))
data1 <- data1 %>%
rename(id = sample.1.100..3000..replace...TRUE.) %>%
as.data.frame()
ggplot(data1, aes(id)) +
geom_bar(fill=amerika_palette(100, name = "Dem_Ind_Rep7", type = "continuous")) +
labs(x = "Political Ideology (Liberal - Conservative)",
y = "Count of Respondents") +
theme_bw()
library(tidyverse)
# 5-level (discrete) palette
ggplot(diamonds, aes(factor(cut), fill = factor(cut))) +
geom_bar(fill=amerika_palette("Dem_Ind_Rep5")) + theme_bw()
# 7-level (discrete) palette
ggplot(diamonds, aes(factor(color), fill = factor(color))) +
geom_bar(fill=amerika_palette("Dem_Ind_Rep7")) + theme_bw()
amerika
?While the package is available for download at CRAN, amerika
is stored and developed at the corresponding GitHub repository, https://github.com/pdwaggoner/amerika/, along with an issue tracker for reporting bugs as well as suggesting package extensions and/or enhancements. In the spirit of open science, I welcome any level of interaction with the package.
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.