更改默认的调色板中ggplot

我写了返回颜色名称的载体的功能：更改默认的调色板中ggplot

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) 
}

我想ggplot使用上述函数生成默认的调色板。也许只适用于离散的尺度。每次使用scale_manual()都会造成太大的阻力。可能吗？

来源

2012-05-08 Ernest A

[此（http://groups.google.com/group/ggplot2-dev/browse_thread/thread/fc838059c281e835?pli=1）应该很有用。 – baptiste

谢谢。我会在稍后保留，但现在我被困在0.8.9版本。 –

@baptiste指出我的留言板帖子提到了可用于设置默认调色板的功能set_default_scale。不过，以下解决方案仅适用于旧版本的ggplot2。

首先我们需要一个产生颜色名称或代码的函数。我打电话给我的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) 
}

（它接受一个可选的参数set只是为了表明你并不局限于单一的调色板。）好了，现在我们创建了一个“规模”，我把它叫做magazine。它是基于ggplot的啤酒规模和代码是非常丑陋：

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"'))

这里最重要的是确定output_set这是ggplot调用获得颜色名称/代码的功能。另外，如果您需要额外的参数，那么必须包含在new中，稍后可以作为.$argument_name访问。在上面的示例中，output_set只需调用magazine.colours。

现在，检查新的规模不实际工作：

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

，使之成为默认情况下，只需使用set_default_scale。

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

就是这样。

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

plot showing the new palette

来源

2012-05-09 01:02:04

要重新定义默认的颜色刻度，你也可以只重新定义ggplot功能：

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

用于填充缩放同样的作品。

来源

2013-05-08 09:54:13

简单而美丽。 – Peque

当您将连续变量映射到颜色时可能会造成麻烦 – baptiste

只需指定一个变量，您所需规模的名称：

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

这工作，因为ggplot将其默认尺度从全球环境如果可能的话，类似：

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

来源

2017-06-01 12:09:57

更改默认的调色板中ggplot

回答

相关问题