# for now, you can install the developmental version of ltc
# first you need to install the devtools package 
# in case you have not already installed
install.packages("devtools") 
# and load it
library(devtools)

# Then you can install the dev version of the ltc
install_github("loukesio/ltc_palettes")
# and load it
library(ltc)

names(palettes)
#>  [1] "paloma"     "maya"       "dora"       "ploen"      "olga"      
#>  [6] "mterese"    "gaby"       "franscoise" "fernande"   "sylvie"    
#> [11] "crbhits"    "expevo"     "minou"      "kiss"       "hat"       
#> [16] "reading"    "ten_colors" "alger"      "trio1"      "trio2"     
#> [21] "trio3"      "trio4"      "heatmap"    "pantone23"

alger <- ltc("alger") #in this case you select alger

pltc(alger)

library(ltc)
pantone23 <- ltc("pantone23")
bird(pantone23)

library(ggplot2)
library(ltc)
pal=ltc("heatmap",10,"continuous")

ggplot(data.frame(x = rnorm(1e4), y = rnorm(1e4)), aes(x = x, y = y)) +
  geom_hex() +
  coord_fixed() +
  scale_fill_gradientn(colours = pal) +
  theme_void()

library(ltc)
library(ggplot2)
pal=ltc("alger",5,"continuous")

ggplot(diamonds, aes(price, fill = cut)) +
  geom_histogram(binwidth = 500, position = "fill") +
  scale_fill_manual(values = pal) +
  theme_bw() +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())

library(ltc)
pal=ltc("maya",7,"continuous")
plts(pal, main = "maya")

library(ltc)
pal=ltc("mterese",500,"continuous")
plts(col2transparent(pal, 75))
plts(pal, main = "mterese")