R/RColorBrewer.R

Defines functions brewer.pal

divlist <- c("BrBG", "PiYG", "PRGn", "PuOr", "RdBu", "RdGy", "RdYlBu", "RdYlGn", "Spectral")
names(divlist) <- divlist
quallist <- c("Accent", "Dark2", "Paired", "Pastel1", "Pastel2", "Set1", "Set2", "Set3")
names(quallist) <- quallist
seqlist <- c(
  "Blues", "BuGn", "BuPu", "GnBu", "Greens", "Greys", "Oranges", "OrRd",
  "PuBu", "PuBuGn", "PuRd", "Purples", "RdPu", "Reds", "YlGn", "YlGnBu", "YlOrBr", "YlOrRd"
)
names(seqlist) <- seqlist
colorblindlist <- c(
  "BrBG", "PiYG", "PRGn", "PuOr", "RdBu", "RdYlBu",
  "Dark2", "Paired", "Set2",
  seqlist
)

divnum <- rep(11, length(divlist))
names(divnum) <- divlist
qualnum <- c(8, 8, 12, 9, 8, 9, 8, 12)
names(qualnum) <- quallist
seqnum <- rep(9, length(seqlist))
names(seqnum) <- seqlist
namelist <- c(divlist, quallist, seqlist)
maxcolors <- c(divnum, qualnum, seqnum)
catlist <- rep(c("div", "qual", "seq"), c(length(divlist), length(quallist), length(seqlist)))
colorblind <- (namelist %in% colorblindlist)

brewer.pal <- function(n, name) {
  if (!(name %in% namelist)) {
    stop(paste(name, "is not a valid palette name for brewer.pal\n"))
  }
  if (n < 3) {
    warning("minimal value for n is 3, returning requested palette with 3 different levels\n")
    return(brewer.pal(3, name))
  }
  if (n > maxcolors[which(name == namelist)]) {
    warning(
      paste("n too large, allowed maximum for palette", name, "is", maxcolors[which(name == namelist)]),
      "\nReturning the palette you asked for with that many colors\n"
    )
    return(brewer.pal(maxcolors[which(name == namelist)], name))
  }

  switch(name,
    Accent = switch(n - 2,
      rgb(c(127, 190, 253),
        c(201, 174, 192),
        c(127, 212, 134),
        maxColorValue = 255
      ),
      rgb(c(127, 190, 253, 255),
        c(201, 174, 192, 255),
        c(127, 212, 134, 153),
        maxColorValue = 255
      ),
      rgb(c(127, 190, 253, 255, 56),
        c(201, 174, 192, 255, 108),
        c(127, 212, 134, 153, 176),
        maxColorValue = 255
      ),
      rgb(c(127, 190, 253, 255, 56, 240),
        c(201, 174, 192, 255, 108, 2),
        c(127, 212, 134, 153, 176, 127),
        maxColorValue = 255
      ),
      rgb(c(127, 190, 253, 255, 56, 240, 191),
        c(201, 174, 192, 255, 108, 2, 91),
        c(127, 212, 134, 153, 176, 127, 23),
        maxColorValue = 255
      ),
      rgb(c(127, 190, 253, 255, 56, 240, 191, 102),
        c(201, 174, 192, 255, 108, 2, 91, 102),
        c(127, 212, 134, 153, 176, 127, 23, 102),
        maxColorValue = 255
      )
    ),
    Blues = switch(n - 2,
      rgb(c(222, 158, 49),
        c(235, 202, 130),
        c(247, 225, 189),
        maxColorValue = 255
      ),
      rgb(c(239, 189, 107, 33),
        c(243, 215, 174, 113),
        c(255, 231, 214, 181),
        maxColorValue = 255
      ),
      rgb(c(239, 189, 107, 49, 8),
        c(243, 215, 174, 130, 81),
        c(255, 231, 214, 189, 156),
        maxColorValue = 255
      ),
      rgb(c(239, 198, 158, 107, 49, 8),
        c(243, 219, 202, 174, 130, 81),
        c(255, 239, 225, 214, 189, 156),
        maxColorValue = 255
      ),
      rgb(c(239, 198, 158, 107, 66, 33, 8),
        c(243, 219, 202, 174, 146, 113, 69),
        c(255, 239, 225, 214, 198, 181, 148),
        maxColorValue = 255
      ),
      rgb(c(247, 222, 198, 158, 107, 66, 33, 8),
        c(251, 235, 219, 202, 174, 146, 113, 69),
        c(255, 247, 239, 225, 214, 198, 181, 148),
        maxColorValue = 255
      ),
      rgb(c(247, 222, 198, 158, 107, 66, 33, 8, 8),
        c(251, 235, 219, 202, 174, 146, 113, 81, 48),
        c(255, 247, 239, 225, 214, 198, 181, 156, 107),
        maxColorValue = 255
      )
    ),
    BrBG = switch(n - 2,
      rgb(c(216, 245, 90),
        c(179, 245, 180),
        c(101, 245, 172),
        maxColorValue = 255
      ),
      rgb(c(166, 223, 128, 1),
        c(97, 194, 205, 133),
        c(26, 125, 193, 113),
        maxColorValue = 255
      ),
      rgb(c(166, 223, 245, 128, 1),
        c(97, 194, 245, 205, 133),
        c(26, 125, 245, 193, 113),
        maxColorValue = 255
      ),
      rgb(c(140, 216, 246, 199, 90, 1),
        c(81, 179, 232, 234, 180, 102),
        c(10, 101, 195, 229, 172, 94),
        maxColorValue = 255
      ),
      rgb(c(140, 216, 246, 245, 199, 90, 1),
        c(81, 179, 232, 245, 234, 180, 102),
        c(10, 101, 195, 245, 229, 172, 94),
        maxColorValue = 255
      ),
      rgb(c(140, 191, 223, 246, 199, 128, 53, 1),
        c(81, 129, 194, 232, 234, 205, 151, 102),
        c(10, 45, 125, 195, 229, 193, 143, 94),
        maxColorValue = 255
      ),
      rgb(c(140, 191, 223, 246, 245, 199, 128, 53, 1),
        c(81, 129, 194, 232, 245, 234, 205, 151, 102),
        c(10, 45, 125, 195, 245, 229, 193, 143, 94),
        maxColorValue = 255
      ),
      rgb(c(84, 140, 191, 223, 246, 199, 128, 53, 1, 0),
        c(48, 81, 129, 194, 232, 234, 205, 151, 102, 60),
        c(5, 10, 45, 125, 195, 229, 193, 143, 94, 48),
        maxColorValue = 255
      ),
      rgb(c(84, 140, 191, 223, 246, 245, 199, 128, 53, 1, 0),
        c(48, 81, 129, 194, 232, 245, 234, 205, 151, 102, 60),
        c(5, 10, 45, 125, 195, 245, 229, 193, 143, 94, 48),
        maxColorValue = 255
      )
    ),
    BuGn = switch(n - 2,
      rgb(c(229, 153, 44),
        c(245, 216, 162),
        c(249, 201, 95),
        maxColorValue = 255
      ),
      rgb(c(237, 178, 102, 35),
        c(248, 226, 194, 139),
        c(251, 226, 164, 69),
        maxColorValue = 255
      ),
      rgb(c(237, 178, 102, 44, 0),
        c(248, 226, 194, 162, 109),
        c(251, 226, 164, 95, 44),
        maxColorValue = 255
      ),
      rgb(c(237, 204, 153, 102, 44, 0),
        c(248, 236, 216, 194, 162, 109),
        c(251, 230, 201, 164, 95, 44),
        maxColorValue = 255
      ),
      rgb(c(237, 204, 153, 102, 65, 35, 0),
        c(248, 236, 216, 194, 174, 139, 88),
        c(251, 230, 201, 164, 118, 69, 36),
        maxColorValue = 255
      ),
      rgb(c(247, 229, 204, 153, 102, 65, 35, 0),
        c(252, 245, 236, 216, 194, 174, 139, 88),
        c(253, 249, 230, 201, 164, 118, 69, 36),
        maxColorValue = 255
      ),
      rgb(c(247, 229, 204, 153, 102, 65, 35, 0, 0),
        c(252, 245, 236, 216, 194, 174, 139, 109, 68),
        c(253, 249, 230, 201, 164, 118, 69, 44, 27),
        maxColorValue = 255
      )
    ),
    BuPu = switch(n - 2,
      rgb(c(224, 158, 136),
        c(236, 188, 86),
        c(244, 218, 167),
        maxColorValue = 255
      ),
      rgb(c(237, 179, 140, 136),
        c(248, 205, 150, 65),
        c(251, 227, 198, 157),
        maxColorValue = 255
      ),
      rgb(c(237, 179, 140, 136, 129),
        c(248, 205, 150, 86, 15),
        c(251, 227, 198, 167, 124),
        maxColorValue = 255
      ),
      rgb(c(237, 191, 158, 140, 136, 129),
        c(248, 211, 188, 150, 86, 15),
        c(251, 230, 218, 198, 167, 124),
        maxColorValue = 255
      ),
      rgb(c(237, 191, 158, 140, 140, 136, 110),
        c(248, 211, 188, 150, 107, 65, 1),
        c(251, 230, 218, 198, 177, 157, 107),
        maxColorValue = 255
      ),
      rgb(c(247, 224, 191, 158, 140, 140, 136, 110),
        c(252, 236, 211, 188, 150, 107, 65, 1),
        c(253, 244, 230, 218, 198, 177, 157, 107),
        maxColorValue = 255
      ),
      rgb(c(247, 224, 191, 158, 140, 140, 136, 129, 77),
        c(252, 236, 211, 188, 150, 107, 65, 15, 0),
        c(253, 244, 230, 218, 198, 177, 157, 124, 75),
        maxColorValue = 255
      )
    ),
    Dark2 = switch(n - 2,
      rgb(c(27, 217, 117),
        c(158, 95, 112),
        c(119, 2, 179),
        maxColorValue = 255
      ),
      rgb(c(27, 217, 117, 231),
        c(158, 95, 112, 41),
        c(119, 2, 179, 138),
        maxColorValue = 255
      ),
      rgb(c(27, 217, 117, 231, 102),
        c(158, 95, 112, 41, 166),
        c(119, 2, 179, 138, 30),
        maxColorValue = 255
      ),
      rgb(c(27, 217, 117, 231, 102, 230),
        c(158, 95, 112, 41, 166, 171),
        c(119, 2, 179, 138, 30, 2),
        maxColorValue = 255
      ),
      rgb(c(27, 217, 117, 231, 102, 230, 166),
        c(158, 95, 112, 41, 166, 171, 118),
        c(119, 2, 179, 138, 30, 2, 29),
        maxColorValue = 255
      ),
      rgb(c(27, 217, 117, 231, 102, 230, 166, 102),
        c(158, 95, 112, 41, 166, 171, 118, 102),
        c(119, 2, 179, 138, 30, 2, 29, 102),
        maxColorValue = 255
      )
    ),
    GnBu = switch(n - 2,
      rgb(c(224, 168, 67),
        c(243, 221, 162),
        c(219, 181, 202),
        maxColorValue = 255
      ),
      rgb(c(240, 186, 123, 43),
        c(249, 228, 204, 140),
        c(232, 188, 196, 190),
        maxColorValue = 255
      ),
      rgb(c(240, 186, 123, 67, 8),
        c(249, 228, 204, 162, 104),
        c(232, 188, 196, 202, 172),
        maxColorValue = 255
      ),
      rgb(c(240, 204, 168, 123, 67, 8),
        c(249, 235, 221, 204, 162, 104),
        c(232, 197, 181, 196, 202, 172),
        maxColorValue = 255
      ),
      rgb(c(240, 204, 168, 123, 78, 43, 8),
        c(249, 235, 221, 204, 179, 140, 88),
        c(232, 197, 181, 196, 211, 190, 158),
        maxColorValue = 255
      ),
      rgb(c(247, 224, 204, 168, 123, 78, 43, 8),
        c(252, 243, 235, 221, 204, 179, 140, 88),
        c(240, 219, 197, 181, 196, 211, 190, 158),
        maxColorValue = 255
      ),
      rgb(c(247, 224, 204, 168, 123, 78, 43, 8, 8),
        c(252, 243, 235, 221, 204, 179, 140, 104, 64),
        c(240, 219, 197, 181, 196, 211, 190, 172, 129),
        maxColorValue = 255
      )
    ),
    Greens = switch(n - 2,
      rgb(c(229, 161, 49), c(245, 217, 163), c(224, 155, 84), maxColorValue = 255),
      rgb(c(237, 186, 116, 35),
        c(248, 228, 196, 139),
        c(233, 179, 118, 69),
        maxColorValue = 255
      ),
      rgb(c(237, 186, 116, 49, 0),
        c(248, 228, 196, 163, 109),
        c(233, 179, 118, 84, 44),
        maxColorValue = 255
      ),
      rgb(c(237, 199, 161, 116, 49, 0),
        c(248, 233, 217, 196, 163, 109),
        c(233, 192, 155, 118, 84, 44),
        maxColorValue = 255
      ),
      rgb(c(237, 199, 161, 116, 65, 35, 0),
        c(248, 233, 217, 196, 171, 139, 90),
        c(233, 192, 155, 118, 93, 69, 50),
        maxColorValue = 255
      ),
      rgb(c(247, 229, 199, 161, 116, 65, 35, 0),
        c(252, 245, 233, 217, 196, 171, 139, 90),
        c(245, 224, 192, 155, 118, 93, 69, 50),
        maxColorValue = 255
      ),
      rgb(c(247, 229, 199, 161, 116, 65, 35, 0, 0),
        c(252, 245, 233, 217, 196, 171, 139, 109, 68),
        c(245, 224, 192, 155, 118, 93, 69, 44, 27),
        maxColorValue = 255
      )
    ),
    Greys = switch(n - 2,
      rgb(c(240, 189, 99),
        c(240, 189, 99),
        c(240, 189, 99),
        maxColorValue = 255
      ),
      rgb(c(247, 204, 150, 82),
        c(247, 204, 150, 82),
        c(247, 204, 150, 82),
        maxColorValue = 255
      ),
      rgb(c(247, 204, 150, 99, 37),
        c(247, 204, 150, 99, 37),
        c(247, 204, 150, 99, 37),
        maxColorValue = 255
      ),
      rgb(c(247, 217, 189, 150, 99, 37),
        c(247, 217, 189, 150, 99, 37),
        c(247, 217, 189, 150, 99, 37),
        maxColorValue = 255
      ),
      rgb(c(247, 217, 189, 150, 115, 82, 37),
        c(247, 217, 189, 150, 115, 82, 37),
        c(247, 217, 189, 150, 115, 82, 37),
        maxColorValue = 255
      ),
      rgb(c(255, 240, 217, 189, 150, 115, 82, 37),
        c(255, 240, 217, 189, 150, 115, 82, 37),
        c(255, 240, 217, 189, 150, 115, 82, 37),
        maxColorValue = 255
      ),
      rgb(c(255, 240, 217, 189, 150, 115, 82, 37, 0),
        c(255, 240, 217, 189, 150, 115, 82, 37, 0),
        c(255, 240, 217, 189, 150, 115, 82, 37, 0),
        maxColorValue = 255
      )
    ),
    Oranges = switch(n - 2,
      rgb(c(254, 253, 230),
        c(230, 174, 85),
        c(206, 107, 13),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 253, 217),
        c(237, 190, 141, 71),
        c(222, 133, 60, 1),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 253, 230, 166),
        c(237, 190, 141, 85, 54),
        c(222, 133, 60, 13, 3),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 253, 253, 230, 166),
        c(237, 208, 174, 141, 85, 54),
        c(222, 162, 107, 60, 13, 3),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 253, 253, 241, 217, 140),
        c(237, 208, 174, 141, 105, 72, 45),
        c(222, 162, 107, 60, 19, 1, 4),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 253, 253, 253, 241, 217, 140),
        c(245, 230, 208, 174, 141, 105, 72, 45),
        c(235, 206, 162, 107, 60, 19, 1, 4),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 253, 253, 253, 241, 217, 166, 127),
        c(245, 230, 208, 174, 141, 105, 72, 54, 39),
        c(235, 206, 162, 107, 60, 19, 1, 3, 4),
        maxColorValue = 255
      )
    ),
    OrRd = switch(n - 2,
      rgb(c(254, 253, 227),
        c(232, 187, 74),
        c(200, 132, 51),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 252, 215),
        c(240, 204, 141, 48),
        c(217, 138, 89, 31),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 252, 227, 179),
        c(240, 204, 141, 74, 0),
        c(217, 138, 89, 51, 0),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 253, 252, 227, 179),
        c(240, 212, 187, 141, 74, 0),
        c(217, 158, 132, 89, 51, 0),
        maxColorValue = 255
      ),
      rgb(c(254, 253, 253, 252, 239, 215, 153),
        c(240, 212, 187, 141, 101, 48, 0),
        c(217, 158, 132, 89, 72, 31, 0),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 253, 253, 252, 239, 215, 153),
        c(247, 232, 212, 187, 141, 101, 48, 0),
        c(236, 200, 158, 132, 89, 72, 31, 0),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 253, 253, 252, 239, 215, 179, 127),
        c(247, 232, 212, 187, 141, 101, 48, 0, 0),
        c(236, 200, 158, 132, 89, 72, 31, 0, 0),
        maxColorValue = 255
      )
    ),
    Paired = switch(n - 2,
      rgb(c(166, 31, 178),
        c(206, 120, 223),
        c(227, 180, 138),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51),
        c(206, 120, 223, 160),
        c(227, 180, 138, 44),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251),
        c(206, 120, 223, 160, 154),
        c(227, 180, 138, 44, 153),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251, 227),
        c(206, 120, 223, 160, 154, 26),
        c(227, 180, 138, 44, 153, 28),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251, 227, 253),
        c(206, 120, 223, 160, 154, 26, 191),
        c(227, 180, 138, 44, 153, 28, 111),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251, 227, 253, 255),
        c(206, 120, 223, 160, 154, 26, 191, 127),
        c(227, 180, 138, 44, 153, 28, 111, 0),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251, 227, 253, 255, 202),
        c(206, 120, 223, 160, 154, 26, 191, 127, 178),
        c(227, 180, 138, 44, 153, 28, 111, 0, 214),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251, 227, 253, 255, 202, 106),
        c(206, 120, 223, 160, 154, 26, 191, 127, 178, 61),
        c(227, 180, 138, 44, 153, 28, 111, 0, 214, 154),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251, 227, 253, 255, 202, 106, 255),
        c(206, 120, 223, 160, 154, 26, 191, 127, 178, 61, 255),
        c(227, 180, 138, 44, 153, 28, 111, 0, 214, 154, 153),
        maxColorValue = 255
      ),
      rgb(c(166, 31, 178, 51, 251, 227, 253, 255, 202, 106, 255, 177),
        c(206, 120, 223, 160, 154, 26, 191, 127, 178, 61, 255, 89),
        c(227, 180, 138, 44, 153, 28, 111, 0, 214, 154, 153, 40),
        maxColorValue = 255
      )
    ),
    Pastel1 = switch(n - 2,
      rgb(c(251, 179, 204),
        c(180, 205, 235),
        c(174, 227, 197),
        maxColorValue = 255
      ),
      rgb(c(251, 179, 204, 222),
        c(180, 205, 235, 203),
        c(174, 227, 197, 228),
        maxColorValue = 255
      ),
      rgb(c(251, 179, 204, 222, 254),
        c(180, 205, 235, 203, 217),
        c(174, 227, 197, 228, 166),
        maxColorValue = 255
      ),
      rgb(c(251, 179, 204, 222, 254, 255),
        c(180, 205, 235, 203, 217, 255),
        c(174, 227, 197, 228, 166, 204),
        maxColorValue = 255
      ),
      rgb(c(251, 179, 204, 222, 254, 255, 229),
        c(180, 205, 235, 203, 217, 255, 216),
        c(174, 227, 197, 228, 166, 204, 189),
        maxColorValue = 255
      ),
      rgb(c(251, 179, 204, 222, 254, 255, 229, 253),
        c(180, 205, 235, 203, 217, 255, 216, 218),
        c(174, 227, 197, 228, 166, 204, 189, 236),
        maxColorValue = 255
      ),
      rgb(c(251, 179, 204, 222, 254, 255, 229, 253, 242),
        c(180, 205, 235, 203, 217, 255, 216, 218, 242),
        c(174, 227, 197, 228, 166, 204, 189, 236, 242),
        maxColorValue = 255
      )
    ),
    Pastel2 = switch(n - 2,
      rgb(c(179, 253, 203),
        c(226, 205, 213),
        c(205, 172, 232),
        maxColorValue = 255
      ),
      rgb(c(179, 253, 203, 244),
        c(226, 205, 213, 202),
        c(205, 172, 232, 228),
        maxColorValue = 255
      ),
      rgb(c(179, 253, 203, 244, 230),
        c(226, 205, 213, 202, 245),
        c(205, 172, 232, 228, 201),
        maxColorValue = 255
      ),
      rgb(c(179, 253, 203, 244, 230, 255),
        c(226, 205, 213, 202, 245, 242),
        c(205, 172, 232, 228, 201, 174),
        maxColorValue = 255
      ),
      rgb(c(179, 253, 203, 244, 230, 255, 241),
        c(226, 205, 213, 202, 245, 242, 226),
        c(205, 172, 232, 228, 201, 174, 204),
        maxColorValue = 255
      ),
      rgb(c(179, 253, 203, 244, 230, 255, 241, 204),
        c(226, 205, 213, 202, 245, 242, 226, 204),
        c(205, 172, 232, 228, 201, 174, 204, 204),
        maxColorValue = 255
      )
    ),
    PiYG = switch(n - 2,
      rgb(c(233, 247, 161),
        c(163, 247, 215),
        c(201, 247, 106),
        maxColorValue = 255
      ),
      rgb(c(208, 241, 184, 77),
        c(28, 182, 225, 172),
        c(139, 218, 134, 38),
        maxColorValue = 255
      ),
      rgb(c(208, 241, 247, 184, 77),
        c(28, 182, 247, 225, 172),
        c(139, 218, 247, 134, 38),
        maxColorValue = 255
      ),
      rgb(c(197, 233, 253, 230, 161, 77),
        c(27, 163, 224, 245, 215, 146),
        c(125, 201, 239, 208, 106, 33),
        maxColorValue = 255
      ),
      rgb(c(197, 233, 253, 247, 230, 161, 77),
        c(27, 163, 224, 247, 245, 215, 146),
        c(125, 201, 239, 247, 208, 106, 33),
        maxColorValue = 255
      ),
      rgb(c(197, 222, 241, 253, 230, 184, 127, 77),
        c(27, 119, 182, 224, 245, 225, 188, 146),
        c(125, 174, 218, 239, 208, 134, 65, 33),
        maxColorValue = 255
      ),
      rgb(c(197, 222, 241, 253, 247, 230, 184, 127, 77),
        c(27, 119, 182, 224, 247, 245, 225, 188, 146),
        c(125, 174, 218, 239, 247, 208, 134, 65, 33),
        maxColorValue = 255
      ),
      rgb(c(142, 197, 222, 241, 253, 230, 184, 127, 77, 39),
        c(1, 27, 119, 182, 224, 245, 225, 188, 146, 100),
        c(82, 125, 174, 218, 239, 208, 134, 65, 33, 25),
        maxColorValue = 255
      ),
      rgb(c(142, 197, 222, 241, 253, 247, 230, 184, 127, 77, 39),
        c(1, 27, 119, 182, 224, 247, 245, 225, 188, 146, 100),
        c(82, 125, 174, 218, 239, 247, 208, 134, 65, 33, 25),
        maxColorValue = 255
      )
    ),
    PRGn = switch(n - 2,
      rgb(c(175, 247, 127),
        c(141, 247, 191),
        c(195, 247, 123),
        maxColorValue = 255
      ),
      rgb(c(123, 194, 166, 0),
        c(50, 165, 219, 136),
        c(148, 207, 160, 55),
        maxColorValue = 255
      ),
      rgb(c(123, 194, 247, 166, 0),
        c(50, 165, 247, 219, 136),
        c(148, 207, 247, 160, 55),
        maxColorValue = 255
      ),
      rgb(c(118, 175, 231, 217, 127, 27),
        c(42, 141, 212, 240, 191, 120),
        c(131, 195, 232, 211, 123, 55),
        maxColorValue = 255
      ),
      rgb(c(118, 175, 231, 247, 217, 127, 27),
        c(42, 141, 212, 247, 240, 191, 120),
        c(131, 195, 232, 247, 211, 123, 55),
        maxColorValue = 255
      ),
      rgb(c(118, 153, 194, 231, 217, 166, 90, 27),
        c(42, 112, 165, 212, 240, 219, 174, 120),
        c(131, 171, 207, 232, 211, 160, 97, 55),
        maxColorValue = 255
      ),
      rgb(c(118, 153, 194, 231, 247, 217, 166, 90, 27),
        c(42, 112, 165, 212, 247, 240, 219, 174, 120),
        c(131, 171, 207, 232, 247, 211, 160, 97, 55),
        maxColorValue = 255
      ),
      rgb(c(64, 118, 153, 194, 231, 217, 166, 90, 27, 0),
        c(0, 42, 112, 165, 212, 240, 219, 174, 120, 68),
        c(75, 131, 171, 207, 232, 211, 160, 97, 55, 27),
        maxColorValue = 255
      ),
      rgb(c(64, 118, 153, 194, 231, 247, 217, 166, 90, 27, 0),
        c(0, 42, 112, 165, 212, 247, 240, 219, 174, 120, 68),
        c(75, 131, 171, 207, 232, 247, 211, 160, 97, 55, 27),
        maxColorValue = 255
      )
    ),
    PuBu = switch(n - 2,
      rgb(c(236, 166, 43),
        c(231, 189, 140),
        c(242, 219, 190),
        maxColorValue = 255
      ),
      rgb(c(241, 189, 116, 5),
        c(238, 201, 169, 112),
        c(246, 225, 207, 176),
        maxColorValue = 255
      ),
      rgb(c(241, 189, 116, 43, 4),
        c(238, 201, 169, 140, 90),
        c(246, 225, 207, 190, 141),
        maxColorValue = 255
      ),
      rgb(c(241, 208, 166, 116, 43, 4),
        c(238, 209, 189, 169, 140, 90),
        c(246, 230, 219, 207, 190, 141),
        maxColorValue = 255
      ),
      rgb(c(241, 208, 166, 116, 54, 5, 3),
        c(238, 209, 189, 169, 144, 112, 78),
        c(246, 230, 219, 207, 192, 176, 123),
        maxColorValue = 255
      ),
      rgb(c(255, 236, 208, 166, 116, 54, 5, 3),
        c(247, 231, 209, 189, 169, 144, 112, 78),
        c(251, 242, 230, 219, 207, 192, 176, 123),
        maxColorValue = 255
      ),
      rgb(c(255, 236, 208, 166, 116, 54, 5, 4, 2),
        c(247, 231, 209, 189, 169, 144, 112, 90, 56),
        c(251, 242, 230, 219, 207, 192, 176, 141, 88),
        maxColorValue = 255
      )
    ),
    PuBuGn = switch(n - 2,
      rgb(c(236, 166, 28),
        c(226, 189, 144),
        c(240, 219, 153),
        maxColorValue = 255
      ),
      rgb(c(246, 189, 103, 2),
        c(239, 201, 169, 129),
        c(247, 225, 207, 138),
        maxColorValue = 255
      ),
      rgb(c(246, 189, 103, 28, 1),
        c(239, 201, 169, 144, 108),
        c(247, 225, 207, 153, 89),
        maxColorValue = 255
      ),
      rgb(c(246, 208, 166, 103, 28, 1),
        c(239, 209, 189, 169, 144, 108),
        c(247, 230, 219, 207, 153, 89),
        maxColorValue = 255
      ),
      rgb(c(246, 208, 166, 103, 54, 2, 1),
        c(239, 209, 189, 169, 144, 129, 100),
        c(247, 230, 219, 207, 192, 138, 80),
        maxColorValue = 255
      ),
      rgb(c(255, 236, 208, 166, 103, 54, 2, 1),
        c(247, 226, 209, 189, 169, 144, 129, 100),
        c(251, 240, 230, 219, 207, 192, 138, 80),
        maxColorValue = 255
      ),
      rgb(c(255, 236, 208, 166, 103, 54, 2, 1, 1),
        c(247, 226, 209, 189, 169, 144, 129, 108, 70),
        c(251, 240, 230, 219, 207, 192, 138, 89, 54),
        maxColorValue = 255
      )
    ),
    PuOr = switch(n - 2,
      rgb(c(241, 247, 153),
        c(163, 247, 142),
        c(64, 247, 195),
        maxColorValue = 255
      ),
      rgb(c(230, 253, 178, 94),
        c(97, 184, 171, 60),
        c(1, 99, 210, 153),
        maxColorValue = 255
      ),
      rgb(c(230, 253, 247, 178, 94),
        c(97, 184, 247, 171, 60),
        c(1, 99, 247, 210, 153),
        maxColorValue = 255
      ),
      rgb(c(179, 241, 254, 216, 153, 84),
        c(88, 163, 224, 218, 142, 39),
        c(6, 64, 182, 235, 195, 136),
        maxColorValue = 255
      ),
      rgb(c(179, 241, 254, 247, 216, 153, 84),
        c(88, 163, 224, 247, 218, 142, 39),
        c(6, 64, 182, 247, 235, 195, 136),
        maxColorValue = 255
      ),
      rgb(c(179, 224, 253, 254, 216, 178, 128, 84),
        c(88, 130, 184, 224, 218, 171, 115, 39),
        c(6, 20, 99, 182, 235, 210, 172, 136),
        maxColorValue = 255
      ),
      rgb(c(179, 224, 253, 254, 247, 216, 178, 128, 84),
        c(88, 130, 184, 224, 247, 218, 171, 115, 39),
        c(6, 20, 99, 182, 247, 235, 210, 172, 136),
        maxColorValue = 255
      ),
      rgb(c(127, 179, 224, 253, 254, 216, 178, 128, 84, 45),
        c(59, 88, 130, 184, 224, 218, 171, 115, 39, 0),
        c(8, 6, 20, 99, 182, 235, 210, 172, 136, 75),
        maxColorValue = 255
      ),
      rgb(c(127, 179, 224, 253, 254, 247, 216, 178, 128, 84, 45),
        c(59, 88, 130, 184, 224, 247, 218, 171, 115, 39, 0),
        c(8, 6, 20, 99, 182, 247, 235, 210, 172, 136, 75),
        maxColorValue = 255
      )
    ),
    PuRd = switch(n - 2,
      rgb(c(231, 201, 221),
        c(225, 148, 28),
        c(239, 199, 119),
        maxColorValue = 255
      ),
      rgb(c(241, 215, 223, 206),
        c(238, 181, 101, 18),
        c(246, 216, 176, 86),
        maxColorValue = 255
      ),
      rgb(c(241, 215, 223, 221, 152),
        c(238, 181, 101, 28, 0),
        c(246, 216, 176, 119, 67),
        maxColorValue = 255
      ),
      rgb(c(241, 212, 201, 223, 221, 152),
        c(238, 185, 148, 101, 28, 0),
        c(246, 218, 199, 176, 119, 67),
        maxColorValue = 255
      ),
      rgb(c(241, 212, 201, 223, 231, 206, 145),
        c(238, 185, 148, 101, 41, 18, 0),
        c(246, 218, 199, 176, 138, 86, 63),
        maxColorValue = 255
      ),
      rgb(c(247, 231, 212, 201, 223, 231, 206, 145),
        c(244, 225, 185, 148, 101, 41, 18, 0),
        c(249, 239, 218, 199, 176, 138, 86, 63),
        maxColorValue = 255
      ),
      rgb(c(247, 231, 212, 201, 223, 231, 206, 152, 103),
        c(244, 225, 185, 148, 101, 41, 18, 0, 0),
        c(249, 239, 218, 199, 176, 138, 86, 67, 31),
        maxColorValue = 255
      )
    ),
    Purples = switch(n - 2,
      rgb(c(239, 188, 117),
        c(237, 189, 107),
        c(245, 220, 177),
        maxColorValue = 255
      ),
      rgb(c(242, 203, 158, 106),
        c(240, 201, 154, 81),
        c(247, 226, 200, 163),
        maxColorValue = 255
      ),
      rgb(c(242, 203, 158, 117, 84),
        c(240, 201, 154, 107, 39),
        c(247, 226, 200, 177, 143),
        maxColorValue = 255
      ),
      rgb(c(242, 218, 188, 158, 117, 84),
        c(240, 218, 189, 154, 107, 39),
        c(247, 235, 220, 200, 177, 143),
        maxColorValue = 255
      ),
      rgb(c(242, 218, 188, 158, 128, 106, 74),
        c(240, 218, 189, 154, 125, 81, 20),
        c(247, 235, 220, 200, 186, 163, 134),
        maxColorValue = 255
      ),
      rgb(c(252, 239, 218, 188, 158, 128, 106, 74),
        c(251, 237, 218, 189, 154, 125, 81, 20),
        c(253, 245, 235, 220, 200, 186, 163, 134),
        maxColorValue = 255
      ),
      rgb(c(252, 239, 218, 188, 158, 128, 106, 84, 63),
        c(251, 237, 218, 189, 154, 125, 81, 39, 0),
        c(253, 245, 235, 220, 200, 186, 163, 143, 125),
        maxColorValue = 255
      )
    ),
    RdBu = switch(n - 2,
      rgb(c(239, 247, 103),
        c(138, 247, 169),
        c(98, 247, 207),
        maxColorValue = 255
      ),
      rgb(c(202, 244, 146, 5),
        c(0, 165, 197, 113),
        c(32, 130, 222, 176),
        maxColorValue = 255
      ),
      rgb(c(202, 244, 247, 146, 5),
        c(0, 165, 247, 197, 113),
        c(32, 130, 247, 222, 176),
        maxColorValue = 255
      ),
      rgb(c(178, 239, 253, 209, 103, 33),
        c(24, 138, 219, 229, 169, 102),
        c(43, 98, 199, 240, 207, 172),
        maxColorValue = 255
      ),
      rgb(c(178, 239, 253, 247, 209, 103, 33),
        c(24, 138, 219, 247, 229, 169, 102),
        c(43, 98, 199, 247, 240, 207, 172),
        maxColorValue = 255
      ),
      rgb(c(178, 214, 244, 253, 209, 146, 67, 33),
        c(24, 96, 165, 219, 229, 197, 147, 102),
        c(43, 77, 130, 199, 240, 222, 195, 172),
        maxColorValue = 255
      ),
      rgb(c(178, 214, 244, 253, 247, 209, 146, 67, 33),
        c(24, 96, 165, 219, 247, 229, 197, 147, 102),
        c(43, 77, 130, 199, 247, 240, 222, 195, 172),
        maxColorValue = 255
      ),
      rgb(c(103, 178, 214, 244, 253, 209, 146, 67, 33, 5),
        c(0, 24, 96, 165, 219, 229, 197, 147, 102, 48),
        c(31, 43, 77, 130, 199, 240, 222, 195, 172, 97),
        maxColorValue = 255
      ),
      rgb(c(103, 178, 214, 244, 253, 247, 209, 146, 67, 33, 5),
        c(0, 24, 96, 165, 219, 247, 229, 197, 147, 102, 48),
        c(31, 43, 77, 130, 199, 247, 240, 222, 195, 172, 97),
        maxColorValue = 255
      )
    ),
    RdGy = switch(n - 2,
      rgb(c(239, 255, 153),
        c(138, 255, 153),
        c(98, 255, 153),
        maxColorValue = 255
      ),
      rgb(c(202, 244, 186, 64),
        c(0, 165, 186, 64),
        c(32, 130, 186, 64),
        maxColorValue = 255
      ),
      rgb(c(202, 244, 255, 186, 64),
        c(0, 165, 255, 186, 64),
        c(32, 130, 255, 186, 64),
        maxColorValue = 255
      ),
      rgb(c(178, 239, 253, 224, 153, 77),
        c(24, 138, 219, 224, 153, 77),
        c(43, 98, 199, 224, 153, 77),
        maxColorValue = 255
      ),
      rgb(c(178, 239, 253, 255, 224, 153, 77),
        c(24, 138, 219, 255, 224, 153, 77),
        c(43, 98, 199, 255, 224, 153, 77),
        maxColorValue = 255
      ),
      rgb(c(178, 214, 244, 253, 224, 186, 135, 77),
        c(24, 96, 165, 219, 224, 186, 135, 77),
        c(43, 77, 130, 199, 224, 186, 135, 77),
        maxColorValue = 255
      ),
      rgb(c(178, 214, 244, 253, 255, 224, 186, 135, 77),
        c(24, 96, 165, 219, 255, 224, 186, 135, 77),
        c(43, 77, 130, 199, 255, 224, 186, 135, 77),
        maxColorValue = 255
      ),
      rgb(c(103, 178, 214, 244, 253, 224, 186, 135, 77, 26),
        c(0, 24, 96, 165, 219, 224, 186, 135, 77, 26),
        c(31, 43, 77, 130, 199, 224, 186, 135, 77, 26),
        maxColorValue = 255
      ),
      rgb(c(103, 178, 214, 244, 253, 255, 224, 186, 135, 77, 26),
        c(0, 24, 96, 165, 219, 255, 224, 186, 135, 77, 26),
        c(31, 43, 77, 130, 199, 255, 224, 186, 135, 77, 26),
        maxColorValue = 255
      )
    ),
    RdPu = switch(n - 2,
      rgb(c(253, 250, 197),
        c(224, 159, 27),
        c(221, 181, 138),
        maxColorValue = 255
      ),
      rgb(c(254, 251, 247, 174),
        c(235, 180, 104, 1),
        c(226, 185, 161, 126),
        maxColorValue = 255
      ),
      rgb(c(254, 251, 247, 197, 122),
        c(235, 180, 104, 27, 1),
        c(226, 185, 161, 138, 119),
        maxColorValue = 255
      ),
      rgb(c(254, 252, 250, 247, 197, 122),
        c(235, 197, 159, 104, 27, 1),
        c(226, 192, 181, 161, 138, 119),
        maxColorValue = 255
      ),
      rgb(c(254, 252, 250, 247, 221, 174, 122),
        c(235, 197, 159, 104, 52, 1, 1),
        c(226, 192, 181, 161, 151, 126, 119),
        maxColorValue = 255
      ),
      rgb(c(255, 253, 252, 250, 247, 221, 174, 122),
        c(247, 224, 197, 159, 104, 52, 1, 1),
        c(243, 221, 192, 181, 161, 151, 126, 119),
        maxColorValue = 255
      ),
      rgb(c(255, 253, 252, 250, 247, 221, 174, 122, 73),
        c(247, 224, 197, 159, 104, 52, 1, 1, 0),
        c(243, 221, 192, 181, 161, 151, 126, 119, 106),
        maxColorValue = 255
      )
    ),
    Reds = switch(n - 2,
      rgb(c(254, 252, 222),
        c(224, 146, 45),
        c(210, 114, 38),
        maxColorValue = 255
      ),
      rgb(c(254, 252, 251, 203),
        c(229, 174, 106, 24),
        c(217, 145, 74, 29),
        maxColorValue = 255
      ),
      rgb(c(254, 252, 251, 222, 165),
        c(229, 174, 106, 45, 15),
        c(217, 145, 74, 38, 21),
        maxColorValue = 255
      ),
      rgb(c(254, 252, 252, 251, 222, 165),
        c(229, 187, 146, 106, 45, 15),
        c(217, 161, 114, 74, 38, 21),
        maxColorValue = 255
      ),
      rgb(c(254, 252, 252, 251, 239, 203, 153),
        c(229, 187, 146, 106, 59, 24, 0),
        c(217, 161, 114, 74, 44, 29, 13),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 252, 252, 251, 239, 203, 153),
        c(245, 224, 187, 146, 106, 59, 24, 0),
        c(240, 210, 161, 114, 74, 44, 29, 13),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 252, 252, 251, 239, 203, 165, 103),
        c(245, 224, 187, 146, 106, 59, 24, 15, 0),
        c(240, 210, 161, 114, 74, 44, 29, 21, 13),
        maxColorValue = 255
      )
    ),
    RdYlBu = switch(n - 2,
      rgb(c(252, 255, 145),
        c(141, 255, 191),
        c(89, 191, 219),
        maxColorValue = 255
      ),
      rgb(c(215, 253, 171, 44),
        c(25, 174, 217, 123),
        c(28, 97, 233, 182),
        maxColorValue = 255
      ),
      rgb(c(215, 253, 255, 171, 44),
        c(25, 174, 255, 217, 123),
        c(28, 97, 191, 233, 182),
        maxColorValue = 255
      ),
      rgb(c(215, 252, 254, 224, 145, 69),
        c(48, 141, 224, 243, 191, 117),
        c(39, 89, 144, 248, 219, 180),
        maxColorValue = 255
      ),
      rgb(c(215, 252, 254, 255, 224, 145, 69),
        c(48, 141, 224, 255, 243, 191, 117),
        c(39, 89, 144, 191, 248, 219, 180),
        maxColorValue = 255
      ),
      rgb(c(215, 244, 253, 254, 224, 171, 116, 69),
        c(48, 109, 174, 224, 243, 217, 173, 117),
        c(39, 67, 97, 144, 248, 233, 209, 180),
        maxColorValue = 255
      ),
      rgb(c(215, 244, 253, 254, 255, 224, 171, 116, 69),
        c(48, 109, 174, 224, 255, 243, 217, 173, 117),
        c(39, 67, 97, 144, 191, 248, 233, 209, 180),
        maxColorValue = 255
      ),
      rgb(c(165, 215, 244, 253, 254, 224, 171, 116, 69, 49),
        c(0, 48, 109, 174, 224, 243, 217, 173, 117, 54),
        c(38, 39, 67, 97, 144, 248, 233, 209, 180, 149),
        maxColorValue = 255
      ),
      rgb(c(165, 215, 244, 253, 254, 255, 224, 171, 116, 69, 49),
        c(0, 48, 109, 174, 224, 255, 243, 217, 173, 117, 54),
        c(38, 39, 67, 97, 144, 191, 248, 233, 209, 180, 149),
        maxColorValue = 255
      )
    ),
    RdYlGn = switch(n - 2,
      rgb(c(252, 255, 145),
        c(141, 255, 207),
        c(89, 191, 96),
        maxColorValue = 255
      ),
      rgb(c(215, 253, 166, 26),
        c(25, 174, 217, 150),
        c(28, 97, 106, 65),
        maxColorValue = 255
      ),
      rgb(c(215, 253, 255, 166, 26),
        c(25, 174, 255, 217, 150),
        c(28, 97, 191, 106, 65),
        maxColorValue = 255
      ),
      rgb(c(215, 252, 254, 217, 145, 26),
        c(48, 141, 224, 239, 207, 152),
        c(39, 89, 139, 139, 96, 80),
        maxColorValue = 255
      ),
      rgb(c(215, 252, 254, 255, 217, 145, 26),
        c(48, 141, 224, 255, 239, 207, 152),
        c(39, 89, 139, 191, 139, 96, 80),
        maxColorValue = 255
      ),
      rgb(c(215, 244, 253, 254, 217, 166, 102, 26),
        c(48, 109, 174, 224, 239, 217, 189, 152),
        c(39, 67, 97, 139, 139, 106, 99, 80),
        maxColorValue = 255
      ),
      rgb(c(215, 244, 253, 254, 255, 217, 166, 102, 26),
        c(48, 109, 174, 224, 255, 239, 217, 189, 152),
        c(39, 67, 97, 139, 191, 139, 106, 99, 80),
        maxColorValue = 255
      ),
      rgb(c(165, 215, 244, 253, 254, 217, 166, 102, 26, 0),
        c(0, 48, 109, 174, 224, 239, 217, 189, 152, 104),
        c(38, 39, 67, 97, 139, 139, 106, 99, 80, 55),
        maxColorValue = 255
      ),
      rgb(c(165, 215, 244, 253, 254, 255, 217, 166, 102, 26, 0),
        c(0, 48, 109, 174, 224, 255, 239, 217, 189, 152, 104),
        c(38, 39, 67, 97, 139, 191, 139, 106, 99, 80, 55),
        maxColorValue = 255
      )
    ),
    Set1 = switch(n - 2,
      rgb(c(228, 55, 77),
        c(26, 126, 175),
        c(28, 184, 74),
        maxColorValue = 255
      ),
      rgb(c(228, 55, 77, 152),
        c(26, 126, 175, 78),
        c(28, 184, 74, 163),
        maxColorValue = 255
      ),
      rgb(c(228, 55, 77, 152, 255),
        c(26, 126, 175, 78, 127),
        c(28, 184, 74, 163, 0),
        maxColorValue = 255
      ),
      rgb(c(228, 55, 77, 152, 255, 255),
        c(26, 126, 175, 78, 127, 255),
        c(28, 184, 74, 163, 0, 51),
        maxColorValue = 255
      ),
      rgb(c(228, 55, 77, 152, 255, 255, 166),
        c(26, 126, 175, 78, 127, 255, 86),
        c(28, 184, 74, 163, 0, 51, 40),
        maxColorValue = 255
      ),
      rgb(c(228, 55, 77, 152, 255, 255, 166, 247),
        c(26, 126, 175, 78, 127, 255, 86, 129),
        c(28, 184, 74, 163, 0, 51, 40, 191),
        maxColorValue = 255
      ),
      rgb(c(228, 55, 77, 152, 255, 255, 166, 247, 153),
        c(26, 126, 175, 78, 127, 255, 86, 129, 153),
        c(28, 184, 74, 163, 0, 51, 40, 191, 153),
        maxColorValue = 255
      )
    ),
    Set2 = switch(n - 2,
      rgb(c(102, 252, 141),
        c(194, 141, 160),
        c(165, 98, 203),
        maxColorValue = 255
      ),
      rgb(c(102, 252, 141, 231),
        c(194, 141, 160, 138),
        c(165, 98, 203, 195),
        maxColorValue = 255
      ),
      rgb(c(102, 252, 141, 231, 166),
        c(194, 141, 160, 138, 216),
        c(165, 98, 203, 195, 84),
        maxColorValue = 255
      ),
      rgb(c(102, 252, 141, 231, 166, 255),
        c(194, 141, 160, 138, 216, 217),
        c(165, 98, 203, 195, 84, 47),
        maxColorValue = 255
      ),
      rgb(c(102, 252, 141, 231, 166, 255, 229),
        c(194, 141, 160, 138, 216, 217, 196),
        c(165, 98, 203, 195, 84, 47, 148),
        maxColorValue = 255
      ),
      rgb(c(102, 252, 141, 231, 166, 255, 229, 179),
        c(194, 141, 160, 138, 216, 217, 196, 179),
        c(165, 98, 203, 195, 84, 47, 148, 179),
        maxColorValue = 255
      )
    ),
    Set3 = switch(n - 2,
      rgb(c(141, 255, 190),
        c(211, 255, 186),
        c(199, 179, 218),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251),
        c(211, 255, 186, 128),
        c(199, 179, 218, 114),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128),
        c(211, 255, 186, 128, 177),
        c(199, 179, 218, 114, 211),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128, 253),
        c(211, 255, 186, 128, 177, 180),
        c(199, 179, 218, 114, 211, 98),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128, 253, 179),
        c(211, 255, 186, 128, 177, 180, 222),
        c(199, 179, 218, 114, 211, 98, 105),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128, 253, 179, 252),
        c(211, 255, 186, 128, 177, 180, 222, 205),
        c(199, 179, 218, 114, 211, 98, 105, 229),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128, 253, 179, 252, 217),
        c(211, 255, 186, 128, 177, 180, 222, 205, 217),
        c(199, 179, 218, 114, 211, 98, 105, 229, 217),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128, 253, 179, 252, 217, 188),
        c(211, 255, 186, 128, 177, 180, 222, 205, 217, 128),
        c(199, 179, 218, 114, 211, 98, 105, 229, 217, 189),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128, 253, 179, 252, 217, 188, 204),
        c(211, 255, 186, 128, 177, 180, 222, 205, 217, 128, 235),
        c(199, 179, 218, 114, 211, 98, 105, 229, 217, 189, 197),
        maxColorValue = 255
      ),
      rgb(c(141, 255, 190, 251, 128, 253, 179, 252, 217, 188, 204, 255),
        c(211, 255, 186, 128, 177, 180, 222, 205, 217, 128, 235, 237),
        c(199, 179, 218, 114, 211, 98, 105, 229, 217, 189, 197, 111),
        maxColorValue = 255
      )
    ),
    Spectral = switch(n - 2,
      rgb(c(252, 255, 153),
        c(141, 255, 213),
        c(89, 191, 148),
        maxColorValue = 255
      ),
      rgb(c(215, 253, 171, 43),
        c(25, 174, 221, 131),
        c(28, 97, 164, 186),
        maxColorValue = 255
      ),
      rgb(c(215, 253, 255, 171, 43),
        c(25, 174, 255, 221, 131),
        c(28, 97, 191, 164, 186),
        maxColorValue = 255
      ),
      rgb(c(213, 252, 254, 230, 153, 50),
        c(62, 141, 224, 245, 213, 136),
        c(79, 89, 139, 152, 148, 189),
        maxColorValue = 255
      ),
      rgb(c(213, 252, 254, 255, 230, 153, 50),
        c(62, 141, 224, 255, 245, 213, 136),
        c(79, 89, 139, 191, 152, 148, 189),
        maxColorValue = 255
      ),
      rgb(c(213, 244, 253, 254, 230, 171, 102, 50),
        c(62, 109, 174, 224, 245, 221, 194, 136),
        c(79, 67, 97, 139, 152, 164, 165, 189),
        maxColorValue = 255
      ),
      rgb(c(213, 244, 253, 254, 255, 230, 171, 102, 50),
        c(62, 109, 174, 224, 255, 245, 221, 194, 136),
        c(79, 67, 97, 139, 191, 152, 164, 165, 189),
        maxColorValue = 255
      ),
      rgb(c(158, 213, 244, 253, 254, 230, 171, 102, 50, 94),
        c(1, 62, 109, 174, 224, 245, 221, 194, 136, 79),
        c(66, 79, 67, 97, 139, 152, 164, 165, 189, 162),
        maxColorValue = 255
      ),
      rgb(c(158, 213, 244, 253, 254, 255, 230, 171, 102, 50, 94),
        c(1, 62, 109, 174, 224, 255, 245, 221, 194, 136, 79),
        c(66, 79, 67, 97, 139, 191, 152, 164, 165, 189, 162),
        maxColorValue = 255
      )
    ),
    YlGn = switch(n - 2,
      rgb(c(247, 173, 49),
        c(252, 221, 163),
        c(185, 142, 84),
        maxColorValue = 255
      ),
      rgb(c(255, 194, 120, 35),
        c(255, 230, 198, 132),
        c(204, 153, 121, 67),
        maxColorValue = 255
      ),
      rgb(c(255, 194, 120, 49, 0),
        c(255, 230, 198, 163, 104),
        c(204, 153, 121, 84, 55),
        maxColorValue = 255
      ),
      rgb(c(255, 217, 173, 120, 49, 0),
        c(255, 240, 221, 198, 163, 104),
        c(204, 163, 142, 121, 84, 55),
        maxColorValue = 255
      ),
      rgb(c(255, 217, 173, 120, 65, 35, 0),
        c(255, 240, 221, 198, 171, 132, 90),
        c(204, 163, 142, 121, 93, 67, 50),
        maxColorValue = 255
      ),
      rgb(c(255, 247, 217, 173, 120, 65, 35, 0),
        c(255, 252, 240, 221, 198, 171, 132, 90),
        c(229, 185, 163, 142, 121, 93, 67, 50),
        maxColorValue = 255
      ),
      rgb(c(255, 247, 217, 173, 120, 65, 35, 0, 0),
        c(255, 252, 240, 221, 198, 171, 132, 104, 69),
        c(229, 185, 163, 142, 121, 93, 67, 55, 41),
        maxColorValue = 255
      )
    ),
    YlGnBu = switch(n - 2,
      rgb(c(237, 127, 44),
        c(248, 205, 127),
        c(177, 187, 184),
        maxColorValue = 255
      ),
      rgb(c(255, 161, 65, 34),
        c(255, 218, 182, 94),
        c(204, 180, 196, 168),
        maxColorValue = 255
      ),
      rgb(c(255, 161, 65, 44, 37),
        c(255, 218, 182, 127, 52),
        c(204, 180, 196, 184, 148),
        maxColorValue = 255
      ),
      rgb(c(255, 199, 127, 65, 44, 37),
        c(255, 233, 205, 182, 127, 52),
        c(204, 180, 187, 196, 184, 148),
        maxColorValue = 255
      ),
      rgb(c(255, 199, 127, 65, 29, 34, 12),
        c(255, 233, 205, 182, 145, 94, 44),
        c(204, 180, 187, 196, 192, 168, 132),
        maxColorValue = 255
      ),
      rgb(c(255, 237, 199, 127, 65, 29, 34, 12),
        c(255, 248, 233, 205, 182, 145, 94, 44),
        c(217, 177, 180, 187, 196, 192, 168, 132),
        maxColorValue = 255
      ),
      rgb(c(255, 237, 199, 127, 65, 29, 34, 37, 8),
        c(255, 248, 233, 205, 182, 145, 94, 52, 29),
        c(217, 177, 180, 187, 196, 192, 168, 148, 88),
        maxColorValue = 255
      )
    ),
    YlOrBr = switch(n - 2,
      rgb(c(255, 254, 217),
        c(247, 196, 95),
        c(188, 79, 14),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 254, 204),
        c(255, 217, 153, 76),
        c(212, 142, 41, 2),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 254, 217, 153),
        c(255, 217, 153, 95, 52),
        c(212, 142, 41, 14, 4),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 254, 254, 217, 153),
        c(255, 227, 196, 153, 95, 52),
        c(212, 145, 79, 41, 14, 4),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 254, 254, 236, 204, 140),
        c(255, 227, 196, 153, 112, 76, 45),
        c(212, 145, 79, 41, 20, 2, 4),
        maxColorValue = 255
      ),
      rgb(c(255, 255, 254, 254, 254, 236, 204, 140),
        c(255, 247, 227, 196, 153, 112, 76, 45),
        c(229, 188, 145, 79, 41, 20, 2, 4),
        maxColorValue = 255
      ),
      rgb(c(255, 255, 254, 254, 254, 236, 204, 153, 102),
        c(255, 247, 227, 196, 153, 112, 76, 52, 37),
        c(229, 188, 145, 79, 41, 20, 2, 4, 6),
        maxColorValue = 255
      )
    ),
    YlOrRd = switch(n - 2,
      rgb(c(255, 254, 240),
        c(237, 178, 59),
        c(160, 76, 32),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 253, 227),
        c(255, 204, 141, 26),
        c(178, 92, 60, 28),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 253, 240, 189),
        c(255, 204, 141, 59, 0),
        c(178, 92, 60, 32, 38),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 254, 253, 240, 189),
        c(255, 217, 178, 141, 59, 0),
        c(178, 118, 76, 60, 32, 38),
        maxColorValue = 255
      ),
      rgb(c(255, 254, 254, 253, 252, 227, 177),
        c(255, 217, 178, 141, 78, 26, 0),
        c(178, 118, 76, 60, 42, 28, 38),
        maxColorValue = 255
      ),
      rgb(c(255, 255, 254, 254, 253, 252, 227, 177),
        c(255, 237, 217, 178, 141, 78, 26, 0),
        c(204, 160, 118, 76, 60, 42, 28, 38),
        maxColorValue = 255
      ),
      rgb(c(255, 255, 254, 254, 253, 252, 227, 189, 128),
        c(255, 237, 217, 178, 141, 78, 26, 0, 0),
        c(204, 160, 118, 76, 60, 42, 28, 38, 38),
        maxColorValue = 255
      )
    )
  )
}

Try the openair package in your browser

Any scripts or data that you put into this service are public.

openair documentation built on Nov. 22, 2021, 9:08 a.m.