Awesome

peRReo

Who doesn't listen to reggaeton to survive the hours spent in editing a single graph in ggplot? Now you can complete your experience using color palettes based on reggaeton/latin artists for your graphs in R. Make sure your graphs don't lie.

These palettes have been created from the album covers' colors using the paletter package for palette extraction, and edited manually to improve both aesthetics and inclusivity. All continuous palettes except for "ozuna" and "rosalia" have been successfully checked for color-blind safety using Chroma.js Color Palette Helper.

The structure of the code was inspired by the awesome PNWColors package by Jake Lawlor.

Disclaimer: the selection of artists is subjective and based on the author's preferences, additional suggestions are welcome. The selection of albums for each artist has been based on the colors of their cover rather than their quality or representativeness.

Installation
Palettes
Functions
Examples
Contact

Install Package

# Currently available from GitHub:
install.packages("devtools") 
devtools::install_github("jbgb13/peRReo")

Palettes

Aventura

<img src="PalettePics/aventura.png"> - Aventura | The Last (2009)

Bad Bunny 1

<img src="PalettePics/badbunny1.png"> - Bad Bunny | YHLQMDLG (2020)

Bad Bunny 2

<img src="PalettePics/badbunny2.png"> - Bad Bunny | El Último Tour del Mundo (2020)

Bad Gyal

<img src="PalettePics/badgyal.png"> - Bad Gyal | Slow Wine Mixtape (2016)

Becky G

<img src="PalettePics/beckyg.png"> - Becky G | Mala Santa (2019)

Buena Vista Social Club

<img src="PalettePics/buenavista.png"> - Buena Vista Social Club | Buena Vista Social Club (1997)

Calle 13

<img src="PalettePics/calle13.png"> - Calle 13 | Calle 13 (2005)

Daddy Yankee 1

<img src="PalettePics/daddy1.png"> - Daddy Yankee | Talento de Barrio (2008)

Daddy Yankee 2

<img src="PalettePics/daddy2.png"> - Daddy Yankee & Los de la Nazza | King Daddy (2013)

Don Omar

<img src="PalettePics/don.png"> - Don Omar | The Last Don (2003)

Ivy Queen

<img src="PalettePics/ivyqueen.png"> - Ivy Queen | Musa (2012)

Karol G

<img src="PalettePics/karolg.png"> - Karol G | KG0516 (2021)

Natti Natasha

<img src="PalettePics/natti.png"> - Natti Natasha | Iluminatti (2019)

Nicky Jam

<img src="PalettePics/nicky.png"> - Nicky Jam | Infinity (2021)

Ozuna

<img src="PalettePics/ozuna.png"> - Ozuna | Este Loko (2021)

Rauw Alejandro

<img src="PalettePics/rauw.png"> - Rauw Alejandro | Vice Versa (2021)

Rosalia

<img src="PalettePics/rosalia.png"> - Rosalia | El Mal Querer (2018)

Shakira

<img src="PalettePics/shakira.png"> - Shakira | Oral Fixation vol. 2 (2005)

Wisin & Yandel

<img src="PalettePics/wyy.png"> - Wisin & Yandel | Los Extraterrestres (2007)

Building Palettes

Use the latin_palette() function to build and view palettes. Inputs are 'name', 'n', and 'type' (continuous or discrete). 'Name' is required. If 'n' is blank, function will assume n is equal to the number of colors in the palette (9), but if n > palette length, it will automatically interpolate colors between. If 'type' is missing, the function will assume "discrete" if n < palette length, and "continuous" if n > palette length.

Discrete Usage

latin_palette("badgyal",n=4,type="discrete")

latin_palette("buenavista",9)

Continuous Usage

latin_palette("rosalia",20)

latin_palette("badbunny1",50,type="continuous")

Example Plots

Palettes can be easily integrated into Base R imaging or ggplot2

pal=latin_palette('aventura',100)

ggplot(trees)+
  geom_point(aes(x=Height,y=Volume,color=Girth))+
  scale_color_gradientn(colors=rev(pal))+
  theme_minimal()

pal=latin_palette('daddy2',5)

ggplot(diamonds, aes(x=price,fill=cut))+
  geom_density(position='stack')+
  scale_fill_manual(values=(pal))+
  theme_minimal()

pal=latin_palette('ozuna',3)

ggplot(iris,aes(x=Sepal.Width,y=Sepal.Length,color=Species))+
  geom_point()+
  scale_color_manual(values=pal)+
  theme_minimal()

library(gghalves)

pal=rev(latin_palette('calle13',3))

ggplot(ToothGrowth,aes(x=factor(dose),y=len,fill=factor(dose)))+
  geom_half_violin(side='r',position=position_nudge(x=.3),width=0.3)+
  geom_half_boxplot( side = 'r',outlier.shape=NA,position=position_nudge(x=.15),
                     center=TRUE, errorbar.draw = FALSE,width=.15)+
  geom_point(aes(color=factor(dose)),position=position_jitter(width=.1),size=1)+
  stat_summary(fun=mean,geom='point',shape=21,fill=NA,size=2)+
  coord_flip()+
  scale_fill_manual(values=pal)+
  scale_color_manual(values=pal)+
  labs(x='Dose (mg)',y='Length (mm)')+
  theme_minimal()+
  theme(legend.position = "none")

Contact

For any comments or suggestions, feel free to reach me at juanbgonzalezblanco@gmail.com or @JuanBGonzalez13