Resolver lugar de los grises en paleta de colores

[pablotis]

Opción 1: Pasar grises al centro de la paleta:

  paletas <- list(

    `c2_continuo`  = c("#50B8B1", "#9283BE"),
    `c2_contraste` = c("#50B8B1", "#EE3D8F"),
    `c10_todos`     = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#AAAAAA", "#E7E7E7", "#50B8B1",
                        "#9283BE", "#37BBED", "#50535C"))

  #rlang::check_installed("grDevices", reason = "Para usar `dnmye_paletas()`")

  pal <- paletas[[palette]]

  if (reverse) pal <- rev(pal)

  grDevices::colorRampPalette(pal, ...)
}

Opción 2: sacar grises de la paleta C10_todos:

  paletas <- list(

    `c2_continuo`  = c("#50B8B1", "#9283BE"),
    `c2_contraste` = c("#50B8B1", "#EE3D8F"),
    `c8_todos`     = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#50B8B1",
                        "#9283BE", "#37BBED", "#50535C"))

  #rlang::check_installed("grDevices", reason = "Para usar `dnmye_paletas()`")

  pal <- paletas[[palette]]

  if (reverse) pal <- rev(pal)

  grDevices::colorRampPalette(pal, ...)
}

Opción 3: Armar dos paletas, una con grises otra sin grises

  paletas <- list(

    `c2_continuo`  = c("#50B8B1", "#9283BE"),
    `c2_contraste` = c("#50B8B1", "#EE3D8F"),
    `c8`     = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#50B8B1",
                        "#9283BE", "#37BBED", "#50535C"),
    `c10_todos`     = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#AAAAAA", "#E7E7E7", "#50B8B1",
                        "#9283BE", "#37BBED", "#50535C"))

  #rlang::check_installed("grDevices", reason = "Para usar `dnmye_paletas()`")

  pal <- paletas[[palette]]

  if (reverse) pal <- rev(pal)

  grDevices::colorRampPalette(pal, ...)
}

[SSoubie]

Mi productividad aumentó un 200% con estas opciones

[pablotis]

Bien! Cuál te pareció mejor?