peRReo

KO | EN

gitlite — search

#python #javascript #react #machine-learning #nodejs #typescript #api #cpp #raspberry-pi #vue #arduino #nextjs

★ 39 Open GitHub ↗

R color palettes inspired by reggaeton and latin albums

// repository documentation

Was this content helpful?

★ 0 (0 ratings)

# 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`](https://github.com/AndreaCirilloAC/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](https://gka.github.io/palettes/#/9|s|00429d,96ffea,ffffe0|ffffe0,ff005e,93003a|1|1).

The structure of the code was inspired by the awesome [`PNWColors`](https://github.com/jakelawlor/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](#install-package)  
[Palettes](#palettes)  
[Functions](#building-palettes)  
[Examples](#example-plots)  
[Contact](#contact)

## Install Package

```r
# 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

```r
latin_palette("badgyal",n=4,type="discrete")
```
<img src="PalettePics/exbadgyal.png">

```r
latin_palette("buenavista",9)
```

***

### Continuous Usage

```r
latin_palette("rosalia",20)
```

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

## Example Plots

Palettes can be easily integrated into Base R imaging or `ggplot2`

```r
pal=latin_palette('aventura',100)

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

```
<img src="PalettePics/exaventura.png">

***

```r
pal=latin_palette('daddy2',5)

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

```
<img src="PalettePics/exdaddy.png">

***

```r
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()

```
<img src="PalettePics/exozuna.png">

***

```r
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")

```
<img src="PalettePics/excalle2.png">

***

### Contact

For any comments or suggestions, feel free to reach me at <juanbgonzalezblanco@gmail.com> or 
[@JuanBGonzalez13](https://twitter.com/JuanBGonzalez13)

peRReo

Explore Similar Repositories

Was this content helpful?

Recent Feedback

Download README