R/palettes.R

In mrecos/DataRobotColors: DataRobot Color Scales and ggplot2 Functions

## Palette complete
######
DataRobot_colors <- c(
  `Bright blue`         = "#2d8fe2",
  `Soft blue1`          = "#559ee6",
  `Soft blue2`          = "#73adea",
  `Very soft blue1`     = "#8ebcee",
  `Very soft blue2`     = "#a8ccf2",
  `Very soft blue3`     = "#c1dbf6",
  `Light grayish blue1` = "#daeafa",
  `Light grayish blue2` = "#f4f9fe",
  `Pure orange`         = "#ff5600",
  `Vivid orange`        = "#ff712f",
  `Light orange1`       = "#ff8950",
  `Very light orange1`  = "#ffa06f",
  `Very light orange2`  = "#ffb68f",
  `Pale orange`         = "#ffcbaf",
  `Very pale orange1`   = "#ffe1d0",
  `Very pale orange2`   = "#fff6f2",
  `Mostly dark blue1`   = "#53718f",
  `Mostly dark blue2`   = "#68849d",
  `Mostly dark blue3`   = "#7d96ac",
  `Grayish blue1`       = "#94aaba",
  `Grayish blue2`       = "#abbdc9",
  `Light grayish blue3` = "#c3d0d9",
  `Light grayish blue4` = "#dce4e9",
  `Light grayish blue5` = "#f6f8f9",
  `Soft blue3`          = "#69a1e5",
  `Very soft blue4`     = "#90b4e9",
  `Very soft blue5`     = "#b2c8ec",
  `Light grayish blue3` = "#d2dcee",
  `Very light gray`     = "#f1f1f1",
  `Very soft orange`    = "#fed4c3",
  `Very light orange3`  = "#ffb796",
  `Very light orange4`  = "#ff996a",
  `Light orange2`       = "#ff793e",
  `Pure orange`         = "#ff5600",
  `Bright yellow`       = "#f1c232",
  `Moderate lime green` = "#39b54a",
  `Strong red`          = "#b70000",
  `Pure magenta`        = "#da00a8",
  `Dark violet`         = "#662d91",
  `Grayish blue3`       = "#bac5ce"
)

### palette by names
####
# DataRobot_palettes <- list(
#   `DR_Blues` = DataRobot_cols(
#     "Bright blue"         ,
#     "Soft blue1"          ,
#     "Soft blue2"          ,
#     "Very soft blue1"     ,
#     "Very soft blue2"     ,
#     "Very soft blue3"     ,
#     "Light grayish blue1" ,
#     "Light grayish blue2"
#   ),
#
#   `DR_Reds` = DataRobot_cols(
#     "Pure orange"        ,
#     "Vivid orange"       ,
#     "Light orange1"      ,
#     "Very light orange1" ,
#     "Very light orange2" ,
#     "Pale orange"        ,
#     "Very pale orange1"  ,
#     "Very pale orange2"
#   ),
#
#   `DR_Grays` = DataRobot_cols(
#     "Mostly dark blue1"   ,
#     "Mostly dark blue2"   ,
#     "Mostly dark blue3"   ,
#     "Grayish blue1"       ,
#     "Grayish blue2"       ,
#     "Light grayish blue3" ,
#     "Light grayish blue4" ,
#     "Light grayish blue5"
#   ),
#
#   `DR_Diverging` = DataRobot_cols(
#     "Bright blue"         ,
#     "Soft blue3"          ,
#     "Very soft blue4"     ,
#     "Very soft blue5"     ,
#     "Light grayish blue3" ,
#     "Very light gray"     ,
#     "Very soft orange"    ,
#     "Very light orange3"  ,
#     "Very light orange4"  ,
#     "Light orange2"       ,
#     "Pure orange"
#   ),
#
#   `DR_Qualitative` = DataRobot_cols(
#     "Pure orange"         ,
#     "Bright blue"         ,
#     "Bright yellow"       ,
#     "Moderate lime green" ,
#     "Strong red"          ,
#     "Pure magenta"        ,
#     "Dark violet"         ,
#     "Grayish blue3"
#   )
# )

##
#### palettes by name and color
# DR_Blues <- c(
# `Bright blue`          = "#2d8fe2",
# `Soft blue1`           = "#559ee6",
# `Soft blue2`           = "#73adea",
# `Very soft blue1`      = "#8ebcee",
# `Very soft blue2`      = "#a8ccf2",
# `Very soft blue3`      = "#c1dbf6",
# `Light grayish blue1`  = "#daeafa",
# `Light grayish blue2`  = "#f4f9fe"
# )
#
# DR_Reds <- c(
#   `Pure orange`        = "#ff5600",
#   `Vivid orange`       = "#ff712f",
#   `Light orange1`      = "#ff8950",
#   `Very light orange1` = "#ffa06f",
#   `Very light orange2` = "#ffb68f",
#   `Pale orange`        = "#ffcbaf",
#   `Very pale orange1`  = "#ffe1d0",
#   `Very pale orange2`  = "#fff6f2"
# )
#
# DR_Grays <- c(
#   `Mostly dark blue1`   = "#53718f",
#   `Mostly dark blue2`   = "#68849d",
#   `Mostly dark blue3`   = "#7d96ac",
#   `Grayish blue1`       = "#94aaba",
#   `Grayish blue2`       = "#abbdc9",
#   `Light grayish blue3` = "#c3d0d9",
#   `Light grayish blue4` = "#dce4e9",
#   `Light grayish blue5` = "#f6f8f9"
# )
#
# DR_Diverging <- c(
#   `Bright blue`         = "#2d8fe2",
#   `Soft blue3`          = "#69a1e5",
#   `Very soft blue4`     = "#90b4e9",
#   `Very soft blue5`     = "#b2c8ec",
#   `Light grayish blue3` = "#d2dcee",
#   `Very light gray`     = "#f1f1f1",
#   `Very soft orange`    = "#fed4c3",
#   `Very light orange3`  = "#ffb796",
#   `Very light orange4`  = "#ff996a",
#   `Light orange2`       = "#ff793e",
#   `Pure orange`         = "#ff5600"
# )
#
# DR_Qualitative <- c(
#   `Pure orange`         = "#ff5600",
#   `Bright blue`         = "#2d8fe2",
#   `Bright yellow`       = "#f1c232",
#   `Moderate lime green` = "#39b54a",
#   `Strong red`          = "#b70000",
#   `Pure magenta`        = "#da00a8",
#   `Dark violet`         = "#662d91",
#   `Grayish blue3`       = "#bac5ce"
# )