alpha_hex.R

# 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)))
}

alpha_hex('purple', 0.8)
scales::alpha('purple', 0.8)