mexicolors:
A Mexican politics-inspired color palette generatorBuilding on Philip Waggoner’s approach to designing color palettes in
the amerika package, the mexicolors package
offers a variety of a Mexican politics-inspired color palettes for a
host of applications both in and out of politics.
Palette options range from only a few colors to several colors, but
with discrete and continuous options to offer greatest flexibility to
the user. mexicolors allows for a range of applications,
from mapping brief discrete scales to continuous interpolated arrays
including dozens of shades graded from green to red. See below for a
list of the palettes followed by a few political and non-political
examples.
Dev:
{r } devtools::install_github("alexplatasl/mexicolors") library(mexicolors)
Users simply supply the name of the desired palette in the main
function mexico_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.
morena: two shades of red and two shades of grey.pri: four colors including green, white, grey, and
red.pan: four colors including three shades of blue and one
shade of white.prd: five colors including two shades of yellow, one
shade of white, and two shades of grey.cuatroT: eight colors including two shades of red, two
shades of yellow, two shades of gray, and two shades of green.ine: four colors including whine, mexican pink, grey,
and black.pvem: six colors including three shades of green,
yellow, red, and black.mc: eight colors including four shades of orange and
four shades of gray..{r } mexico_palette("cuatroT") 
{r } mexico_palette("ine") 
{r } mexico_palette("morena") 
{r } mexico_palette("pri") 
{r } mexico_palette("pan") 
{r } mexico_palette("prd") 
{r } mexico_palette("pvem") 
{r } mexico_palette("mc") 
type{r } mexico_palette(n = 50, name = "cuatroT", type = "continuous")

{r } mexico_palette(n = 50, name = "ine", type = "continuous")

{r } mexico_palette(n = 50, name = "morena", type = "continuous")

{r } mexico_palette(n = 50, name = "pri", type = "continuous")

{r } mexico_palette(n = 50, name = "pan", type = "continuous")

{r } mexico_palette(n = 50, name = "prd", type = "continuous")

{r } mexico_palette(n = 50, name = "pvem", type = "continuous")

{r } mexico_palette(n = 50, name = "mc", type = "continuous")

```{r } library(tidyverse) # 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=mexico_palette(n = 100, name = “cuatroT”, type = “continuous”)) + labs(x = “Political Ideology (Liberal - Conservative)”, y = “Count of Respondents”) + theme_bw()

### Non-Political Cases (5 and 7 level palettes)
```{r }
library(tidyverse)
# 5-level (discrete) palette
ggplot(diamonds, aes(factor(cut), fill = factor(cut))) +
geom_bar() +
scale_fill_manual(values = mexico_palette("cuatroT", 5, "discrete")) +
theme_bw()

```{r } library(tidyverse)
ggplot(diamonds, aes(factor(color), fill = factor(color))) +
geom_bar() + scale_fill_manual(values = mexico_palette(“morena”, 7,
“continuous”)) + theme_bw() ``` 
mexicolors?mexicolors is stored and developed at this GitHub
repository, https://github.com/alexplatasl/mexicolors/, along with
an issue
tracker for reporting bugs as well as suggesting package extensions
and/or enhancements. In the spirit of open science, any level of
interaction with the package is allowed.