Add color_blind()

[spsanderson]

No description provided.

[spsanderson]

Functions:

#' Provide Colorblind Compliant Colors 
#' 
#' 8 Hex RGB color defintions suitable for charts for colorblind people.
#' 
#' @export
color_blind <- function(){
  c("#000000", "#E69F00", "#56B4E9",
    "#009E73", "#F0E442", "#0072B2",
    "#D55E00", "#CC79A7")
}

# Fill
ts_scale_fill_colorblind = function(.ColorList = 2L:8L, ...){
  ggplot2::scale_fill_discrete(..., type = color_blind())
}

# Color
ts_scale_color_colorblind = function(.ColorList = 2L:8L, ...){
  ggplot2::scale_color_discrete(..., type = color_blind())
}

Example:

library(tidyverse)

ggplot(
  diamonds,
  aes(clarity, fill = cut)
) +
  geom_bar(position = "dodge") +
  ts_scale_fill_colorblind()

[spsanderson]

https://stackoverflow.com/questions/19300134/ggplot2-with-colour-blind-ggthemes-except-black