Default color palette about incidence2 HOT 10 CLOSED

## trying colors
### paired tweaked
incidence_pal <- function(n) {
  col <- c("#1F78B4", "#33A02C", "#E31A1C", "#FF7F00", "#6A3D9A", "#B15928", 
           "#A6CEE3", "#B2DF8A", "#FB9A99", "#FDBF6F", "#CAB2D6", "#FFFF99"
           )
  if (n < length(col)) {
    return(col[seq_len(n)])
  }

  colorRampPalette(col)(n)
}


barplot(1:12, col = incidence_pal(12), main = "palette: sorted `paired`")

## 3 colors
barplot(matrix(sample(1:10, 1000, replace = TRUE), nrow = 3, ncol = 60),
        col = incidence_pal(3), border = "transparent")
#> Warning in matrix(sample(1:10, 1000, replace = TRUE), nrow = 3, ncol = 60): data
#> length [1000] is not a sub-multiple or multiple of the number of rows [3]

## 8 colors
barplot(matrix(sample(1:10, 1000, replace = TRUE), nrow = 8, ncol = 60),
        col = incidence_pal(8), border = "transparent")
#> Warning in matrix(sample(1:10, 1000, replace = TRUE), nrow = 8, ncol = 60): data
#> length [1000] is not a sub-multiple or multiple of the number of columns [60]

## 12 colors
barplot(matrix(sample(1:10, 1000, replace = TRUE), nrow = 12, ncol = 60),
        col = incidence_pal(12), border = "transparent")
#> Warning in matrix(sample(1:10, 1000, replace = TRUE), nrow = 12, ncol = 60):
#> data length [1000] is not a sub-multiple or multiple of the number of rows [12]

incidence_pal <- function(n) {
  col <- c("#FF7F00", "#6A3D9A", "#B15928", "#B2DF8A", "#FB9A99", "#FDBF6F", "#CAB2D6", "#FFFF99"
  )
  if (n < length(col)) {
    return(col[seq_len(n)])
  }
  
  colorRampPalette(col)(n)
}


barplot(1:8, col = incidence_pal(8), main = "palette: reduced sorted `paired`")

## my preferred, uses https://personal.sron.nl/~pault/#sec:qualitative
col_vibrant <- c(
  "#0077BB",
  "#33BBEE",
  "#009988",
  "#EE7733",
  "#CC3311",
  "#EE3377",
  "#BBBBBB"
  )

col_muted <- c(
  "#332288",
  "#88CCEE",
  "#44AA99",
  "#117733",
  "#999933",
  "#DDCC77",
  "#CC6677",
  "#882255",
  "#AA4499",
  "#BBBBBB"
  )


make_palette <- function(x) {
  function(n) {
    if (length(x) > n) {
      x[seq_len(n)]
    } else {
      colorRampPalette(x)(n)
    }
  }
}


#### vibrant palette
pal_vibrant <- make_palette(col_vibrant)
barplot(1:7, col = pal_vibrant(7), main = "palette: vibrant")

barplot(matrix(sample(1:10, 1000, replace = TRUE), nrow = 3, ncol = 60),
        col = pal_vibrant(3))
#> Warning in matrix(sample(1:10, 1000, replace = TRUE), nrow = 3, ncol = 60): data
#> length [1000] is not a sub-multiple or multiple of the number of rows [3]

barplot(matrix(sample(1:10, 1000, replace = TRUE), nrow = 8, ncol = 60),
        col = pal_vibrant(8))
#> Warning in matrix(sample(1:10, 1000, replace = TRUE), nrow = 8, ncol = 60): data
#> length [1000] is not a sub-multiple or multiple of the number of columns [60]

#### muted palette
pal_muted <- make_palette(col_muted)
barplot(1:7, col = pal_muted(7), main = "palette: muted")

barplot(matrix(sample(1:10, 1000, replace = TRUE), nrow = 3, ncol = 60),
        col = pal_muted(3))
#> Warning in matrix(sample(1:10, 1000, replace = TRUE), nrow = 3, ncol = 60): data
#> length [1000] is not a sub-multiple or multiple of the number of rows [3]

barplot(matrix(sample(1:10, 1000, replace = TRUE), nrow = 10, ncol = 60),
        col = pal_muted(10))
#> Warning in matrix(sample(1:10, 1000, replace = TRUE), nrow = 10, ncol = 60):
#> data length [1000] is not a sub-multiple or multiple of the number of columns
#> [60]