gnoblet/visualizeR
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add all colors necessary for REACH color palettes

Browse source
This commit is contained in:
gnoblet 2022-09-19 15:37:22 -04:00
parent 5f60a7d186
commit 1f359fa5ee
1 changed files with 143 additions and 44 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

105
R/cols_reach.R
View file

@ -11,7 +11,8 @@
cols_reach <- function(..., unnamed = TRUE) {
cols <- c(...)
colors_reach <- c(white = "#FFFFFF",
colors_reach <- c(
white = "#FFFFFF",
black = "#000000",
main_grey = "#58585A",
main_red = "#EE5859",
@ -53,7 +54,105 @@ cols_reach <- function(..., unnamed = TRUE) {
orange = "#F69E61",
lt_green = "#B0CFAC",
green = "#84A181",
dk_green = "#526450")
dk_green = "#526450",
red_less_4_1 = "#f6e3e3",
red_less_4_2 = "#f3b5b6",
red_less_4_3 = "#ee5a59",
red_less_4_4 = "#9d393c",
red_5_1 = "#f6e3e3",
red_5_2 = "#f3b5b6",
red_5_3 = "#ee5a59",
red_5_4 = "#c0474a",
red_5_5 = "#792a2e",
red_less_7_1 = "#f8f4f4",
red_less_7_2 = "#f8d6d6",
red_less_7_3 = "#f49695",
red_less_7_4 = "#ee5a59",
red_less_7_5 = "#c0474a",
red_less_7_6 = "#792a2e",
red_less_7_7 = "#471119",
green_2_1 = "#cce5c9",
green_2_2 = "#55a065",
green_3_1 = "#e6f2e0",
green_3_2 = "#7ebf85",
green_3_3 = "#2d8246",
green_4_1 = "#e6f2e1",
green_4_2 = "#b0d3ab",
green_4_3 = "#4bab5e",
green_4_4 = "#0c592e",
green_5_1 = "#e6f2e1",
green_5_2 = "#b0d3ab",
green_5_3 = "#6bb26a",
green_5_4 = "#229346",
green_5_5 = "#0c592e",
green_6_1 = "#e6f2e0",
green_6_2 = "#b0d3ab",
green_6_3 = "#75c376",
green_6_4 = "#086d38",
green_6_5 = "#0c592e",
green_6_6 = "#0d4420",
green_7_1 = "#fafafa",
green_7_2 = "#e6f2e0",
green_7_3 = "#b0d3ab",
green_7_4 = "#75c376",
green_7_5 = "#40ab5d",
green_7_6 = "#086d38",
green_7_7 = "#0d4420",
artichoke_2_1 = "#b6c8b1",
artichoke_2_2 = "#53755f",
artichoke_3_1 = "#e4f1db",
artichoke_3_2 = "#89a087",
artichoke_3_3 = "#455843",
artichoke_4_1 = "#e4f1db",
artichoke_4_2 = "#b5ceb2",
artichoke_4_3 = "#89a087",
artichoke_4_4 = "#465944",
artichoke_5_1 = "#e4f1db",
artichoke_5_2 = "#b5ceb2",
artichoke_5_3 = "#89a087",
artichoke_5_4 = "#60755f",
artichoke_5_5 = "#465944",
artichoke_6_1 = "#fafafa",
artichoke_6_2 = "#e4f1db",
artichoke_6_3 = "#b5ceb2",
artichoke_6_4 = "#89a087",
artichoke_6_5 = "#60755f",
artichoke_6_6 = "#455843",
artichoke_7_1 = "#fafafa",
artichoke_7_2 = "#e4f1db",
artichoke_7_3 = "#b5ceb2",
artichoke_7_4 = "#9fb89c",
artichoke_7_5 = "#89a087",
artichoke_7_6 = "#60755f",
artichoke_7_7 = "#455843",
blue_2_1 = "#7cb6c4",
blue_2_2 = "#286877 ",
blue_3_1 = "#b9d7de",
blue_3_2 = "#5ca4b4",
blue_3_3 = "#286877",
blue_4_1 = "#dfecef",
blue_4_2 = "#8fc1cc",
blue_4_3 = "#3f96aa",
blue_4_4 = "#286877",
blue_5_1 = "#dfecef",
blue_5_2 = "#8fc1cc",
blue_5_3 = "#3f96aa",
blue_5_4 = "#256a7a",
blue_5_5 = "#0c3842",
blue_6_1 = "#f4fbfe",
blue_6_2 = "#cfe4e9",
blue_6_3 = "#77b2bf",
blue_6_4 = "#4096aa",
blue_6_5 = "#256a7a",
blue_6_6 = "#0c3842",
blue_7_1 = "#f4fbfe",
blue_7_2 = "#b3d5de",
blue_7_3 = "#77b2bf",
blue_7_4 = "#4096aa",
blue_7_5 = "#27768a",
blue_7_6 = "#0c596b",
blue_7_7 = "#0c3842"
)
if (is.null(cols)) {
cols_to_return <- colors_reach
@ -61,7 +160,7 @@ cols_reach <- function(..., unnamed = TRUE) {
cols_to_return <- colors_reach[cols]
}
if(unnamed){
if (unnamed) {
cols_to_return <- unname(cols_to_return)
}