R/brattle_pal.R

In Brattle/BrattleExtras: Functions and other objects for Brattle projects

brattle_pal <-
function(){
  function(n){
    colors.brattle <- c(
      brattle.blue = "#00467f",  #   0  70 127
      aqua         = "#7fb9c2",  # 127 185 194
      orange       = "#f47735",  # 244 119  53
      citron.light = "#F5ED60",  # 245 237  96
      olive.light  = "#B0BC22"   # 176 188  34
#     red          = "#ef4623",  # 239  70  35
#     plum         = "#660460"   # 102   4  96
#     emerald      = "#00a18e"   #   0 161 142
#     citron       = "#d5d10e",  # 213 209  14
#     olive        = "#8a8d09"   # 138 141   9
    )
    if(n <= 5){
        if(n <= 3){
          x <- seq_len(n)
        } else if (n == 4) {
          x <- c(1, 2, 5, 3)
        } else if (n == 5){
          x <- c(1, 2, 5, 4, 3)
        }
        unname(colors.brattle[x])
    } else {
      viridis(n)
    }
  }
}