R/lacroix_palettes.R

In johannesbjork/LaCroixColoR: LaCroix Water Color Palettes

#' Complete list of palettes
#' @export
lacroix_palettes <- list(
  PassionFruit = rbind(c("#C70E7B", "#FC6882","#A6E000","#1BB6AF","#6C6C9D","#172869"),c(1,3,2,4,5,6)),
  Mango = rbind(c("#FF5300","#9ED80B","#43B629","#1BB6AF","#8F92A1","#172869"), c(1,2,6,3,5,4)),
  Pure = rbind(c("#AFDFEF","#54BCD1","#1BB6AF","#0099D5","#007BC3","#172869"), c(1,3,5,2,4,6)),
  Lime = rbind(c("#2CB11B","#95C65C","#BDDE9B","#1BB6AF","#0076C0","#172869"),c(1,3,5,2,4,6)),
  Lemon = rbind(c("#F7AA14","#F5D000","#F7E690","#1BB6AF","#088BBE","#172869"),c(1,3,5,2,4,6)),
  Orange = rbind(c("#EF7C12","#FCA315","#F4B95A","#1BB6AF","#088BBE","#172869"),c(1,3,4,2,5,6)),
  Berry = rbind(c("#B25D91","#CB87B4","#EFC7E6","#1BB6AF","#088BBE","#172869"),c(1,3,4,2,5,6)),
  CranRaspberry = rbind(c("#D9565C","#F28A8A","#EDA9AB","#1BB6AF","#088BBE","#172869"),c(1,3,4,2,5,6)),
  Pamplemousse = rbind(c("#EA7580","#F6A1A5","#F8CD9C","#1BB6AF","#088BBE","#172869"),c(1,3,2,5,4,6)),
  PeachPear = rbind(c("#FF3200","#E9A17C","#E9E4A6","#1BB6AF","#0076BB","#172869"),c(1,3,5,2,4,6)),
  Coconut = rbind(c("#881C00","#AF6125","#F4E3C7","#1BB6AF","#0076BB","#172869"),c(1,3,5,2,4,6)),
  Apricot = rbind(c("#D72000","#EE6100","#FFAD0A","#1BB6AF","#9093A2","#132157"),c(1,3,4,2,5,6)),
  Tangerine = rbind(c("#EF562A","#EC921D","#F7B449","#FFED00","#1BB6AF","#9093A2","#132157"), c(1,4,5,3,6,2,7)),
  KeyLime = rbind(c("#D84D16","#FFF800","#8FDA04","#009F3F","#132157"),c(3,1,2,4,5)),
  PommeBaya = rbind(c("#C23A4B","#FBBB48","#EFEF46","#31D64D","#132157"),c(1,4,2,5,3)),
  CeriseLimon =rbind( c("#EE4244","#F8D961","#B6D944","#638E6E","#3C5541", "#132157"),c(1,3,5,2,6,4)),
  PinaFraise = rbind(c("#F44B4B","#F19743","#F1F1A8","#92D84F","#7473A6", "#132157"),c(1,4,2,5,3,6)),
  KiwiSandia = rbind(c("#D18F55", "#FF3F38","#FF8C8D", "#AFDE62","#3CBC38","#4F5791", "#132157"),c(2,4,3,5,6,1,7)),
  MelonPomelo = rbind(c("#EE404E","#F99D53","#F9E7C2","#24C852","#4F5791", "#132157"), c(1,4,2,5,3,6)),
  MurePepino = rbind(c("#D64358","#EAFB88","#3C8C4D","#DFCEE0","#4F5791", "#132157"),c(1,3,2,4,5,6)),
  paired = c("#C70E7B", "#FC6882","#007BC3","#54BCD1","#EF7C12","#F4B95A","#009F3F","#8FDA04",
             "#AF6125","#F4E3C7","#B25D91","#EFC7E6", "#EF7C12","#F4B95A")  
)