cararthompson / monochromer Goto Github PK

Hi Cara,
This a great package. Looking forward to learning more about it in your Workshop for Ukraine today. Just wanted to let you know that there was a small typo in the How can I use it? section.

Instead of remotes::github_install("cararthompson/monochromeR") it should be remotes::install_github("cararthompson/monochromeR").

Thanks,
Kurtis

Hi!

Super cool package. I used it to extract hex codes for transparent values of a whole palette to use as different layers of a ggplot2, as the colours represent different levels of data (see below).

To do this I passed a colour palette in hex codes to hex_to_rgb() then used rgba_to_hex() with an alpha value to get the new colour palette. However hex_to_rgb() currently returns the string "r = X, g = Y, b = Z", when a vector of the three colours would be more useful maybe?

My code and function are here:

# set colours for plot
colours <- RColorBrewer::brewer.pal(10, 'Spectral')

# function to make points lighter but not transparent
alpha_hex <- function(hex_code, alpha = 1){
  # split by ',' and extract number
  temp <- monochromeR::hex_to_rgb(hex_code) %>%
    str_split(., ',') %>%
    .[[1]] %>%
    parse_number
  
  return(rgba_to_hex(c(temp, alpha)))
}

purrr::map_vec(colours, alpha_hex, alpha = 0.7)

view_palette() currently uses scales::show_col() to generate a visual representation of a chart, which uses plot() to generate base R plot.

It would be convenient if view_palette() generated a ggplot object so that it could be passed into colorblindr::cvd_grid() to check how a palette appears for folks with colour blindness.

e.g. penguin_colours <- c("Adelie" = "#12456", "Chinstrap" = "#fafafa")

monochromeR::view_palette(penguin_colours) - show "Adelie" and "Chinstrap" on their corresponding colours.