R/MixPalette.R

In Ehsan-F/R-Mixtape: Mixtape: Enhancing the model making process

# MixPalette <- c(
#   rgb(0, 0.45, 0.7),     # Blue
#   '#FD6467',             # Grandbudapest - Red
#   rgb(0, 0.6, 0.5),      # Bluish Breen
#   rgb(0.9, 0.6, 0),      # Orange
#   rgb(0.35, 0.7, 0.9),   # Sky Blue
#   rgb(0.8, 0.6, 0.7),    # Reddish Purple
#   '#FDD262',             # Chevalier - Yellow
#   '#735BCC',             # Purple Rain
#   '#FF8674',             # SF_Salmon
#   '#002579',             # SF_Navy
#   '#464646',             # SF_Grey
#   rgb(0, 0, 0),          # Black
#   '#EDEDED',             # Light Grey - Grey93
#   '#353744'               # Google Grey 
# ) 


MixPalette <- list()
MixPalette$Blue <- rgb(0, 0.45, 0.7)
MixPalette$Red <- '#FD6467' # Grand Budapest Hotel
MixPalette$Green <- rgb(0, 0.6, 0.5)
MixPalette$Orange <- rgb(0.9, 0.6, 0)
MixPalette$SkyBlue <- rgb(0.35, 0.7, 0.9)
MixPalette$Purple <- rgb(0.8, 0.6, 0.7)
MixPalette$Yellow <- '#FDD262' # Chevalier
MixPalette$Purple_Rain <- '#735BCC' # Purple Rain
MixPalette$SF_Salmon <- '#FF8674'
MixPalette$SF_Navy <- '#002579'
MixPalette$SF_Grey <- '#464646'
MixPalette$Black <- rgb(0, 0, 0)
MixPalette$Light_Grey <- '#EDEDED'
MixPalette$Google_Grey <- '#353744'


MixPalette_Light <- list()
MixPalette_Light$Red <- '#EF9A9A' # Red
MixPalette_Light$Blue <- '#81D4FA' # Blue
MixPalette_Light$Green <- '#A5D6A7' # Green
MixPalette_Light$Yellow <- '#FFEE58' # Yellow
MixPalette_Light$Orange <- '#FFCC80' # Orange
MixPalette_Light$Purple <- '#CCAAB3' # Purple
MixPalette_Light$Sakura <- '#ECC7C0' # Sakura
MixPalette_Light$Blue_Grey <- '#B0BEC5' # Blue Grey