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
# Currently available from GitHub:
install.packages("devtools")
devtools::install_github("jbgb13/peRReo") 
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.
latin_palette("badgyal",n=4,type="discrete")
latin_palette("buenavista",9)
latin_palette("rosalia",20)
latin_palette("badbunny1",50,type="continuous")
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")
For any comments or suggestions, feel free to reach me at juanbgonzalezblanco@gmail.com or @JuanBGonzalez13