cambiar la paleta de colores por defecto en ggplot

Question

He escrito una función que devuelve un vector de nombres de colores:

custom.colors <- function(n) { 
    palette <- c("dodgerblue1", "skyblue4", "chocolate1", "seagreen4", 
       "bisque3", "red4", "purple4", "mediumpurple3", 
       "maroon", "dodgerblue4", "skyblue2", "darkcyan", 
       "darkslategray3", "lightgreen", "bisque", 
       "palevioletred1", "black", "gray79", "lightsalmon4", 
       "darkgoldenrod1") 
    if (n > length(palette)) 
    warning('palette has duplicated colours') 
    rep(palette, length.out=n) 
} 

me gustaría ggplot utilizar la función anterior para generar la paleta por defecto. Tal vez solo para escalas discretas. Usar scale_manual() cada vez es demasiado como un arrastre. ¿Es posible?

Answer 1

@baptiste me indicó un mensaje en la placa de mensajes que menciona la función set_default_scale que se puede usar para establecer una paleta predeterminada. La siguiente solución solo funciona con las versiones anteriores de ggplot2.

Primero necesitamos una función que produzca nombres o códigos de colores. Llamé a la mina magazine.colours:

magazine.colours <- function(n, set=NULL) { 
    set <- match.arg(set, c('1', '2')) 
    palette <- c("red4", "darkslategray3", "dodgerblue1", "darkcyan", 
       "gray79", "black", "skyblue2", "dodgerblue4", 
       "purple4", "maroon", "chocolate1", "bisque3", "bisque", 
       "seagreen4", "lightgreen", "skyblue4", "mediumpurple3", 
       "palevioletred1", "lightsalmon4", "darkgoldenrod1") 
    if (set == 2) 
    palette <- rev(palette) 
    if (n > length(palette)) 
    warning('generated palette has duplicated colours') 
    rep(palette, length.out=n) 
} 

(Se acepta una set argumento opcional sólo para demostrar que no está restringido a una sola paleta.) Ok, ahora creamos una "escala", que llamé magazine. Se basa en la escala cervecera del ggplot y el código es bastante feo:

ScaleMagazine <- proto(ScaleColour, expr={ 
    objname <- 'magazine' 
    new <- function(., name=NULL, set=NULL, na.colour='yellowgreen', 
        limits=NULL, breaks = NULL, labels=NULL, 
        formatter = identity, variable, legend = TRUE) { 
    b_and_l <- check_breaks_and_labels(breaks, labels) 
    .$proto(name=name, set=set, .input=variable, .output=variable, 
      .labels = b_and_l$labels, breaks = b_and_l$breaks, 
      limits= limits, formatter = formatter, legend = legend, 
      na.colour = na.colour) 
    } 
    output_set <- function(.) { 
    missing <- is.na(.$input_set()) 
    n <- sum(!missing) 
    palette <- magazine.colours(n, .$set) 
    missing_colour(palette, missing, .$na.colour) 
    } 
    max_levels <- function(.) Inf 
}) 
scale_colour_magazine <- ScaleMagazine$build_accessor(list(variable = '"colour"')) 
scale_fill_magazine <- ScaleMagazine$build_accessor(list(variable = '"fill"')) 

Lo importante aquí es definir output_set que es la función que ggplot llamadas para obtener los nombres de los colores/códigos. Además, si necesita argumentos adicionales, estos deben estar incluidos en new y más tarde se puede acceder como .$argument_name. En el ejemplo anterior, output_set simplemente llama al magazine.colours.

Ahora, active la nueva escala funciona realmente:

qplot(mpg, wt, data=mtcars, shape=21, 
     colour=factor(carb), fill=factor(carb)) + 
    scale_colour_magazine(set='1') + 
    scale_fill_magazine(set='1') 

para que sea el predeterminado, basta con utilizar set_default_scale.

set_default_scale("colour", "discrete", "magazine") 
set_default_scale("fill", "discrete", "magazine") 

Y eso será todo.

> qplot(mpg, wt, data=mtcars, colour=factor(carb), fill=factor(carb)) 

Answer 2

para redefinir la escala de colores por defecto también se puede simplemente redefinir la función ggplot:

ggplot <- function(...) ggplot2::ggplot(...) + scale_color_brewer(palette="Spectral") 

Las mismas obras para la escala de relleno.

Answer 3

simplemente asigna una variable con el nombre de su escala deseada:

scale_colour_discrete <- function(...) 
    scale_colour_manual(..., values = c('dodgerblue1', *)) 

Esto funciona ya ggplot tomará sus escalas por defecto del entorno global, si es posible, de manera similar a:

get('scale_colour_discrete', envir = globalenv())