将颜色更改为ggplot对象的定义调色板 [英] Change colours to defined palette for ggplot objects

问题描述

我想使用函数将所有 geom _ * 类型对象的默认颜色更改为特定调色板。

下面是 geom_line（）并使用函数 change_colours（）

 ＃load ggplot2和tidyr库
 require（ggplot2）
 require（tidyr）
 
＃创建一个模拟数据框架
 df<  -  data.frame（cbind（var1 = 500 * cumprod（1 + rnorm（300，0，0.04）），
 var2 = 400 * cumprod（1 + rnorm （300,0,0.04）），
 var3 = 300 * cumprod（1 + rnorm（300,0,0.04））））
 df $ TS < -  as.POSIXct（Sys.time ）+ seq（300））
 df < -  gather（df，stock，price，-TS）
 
＃创建基本基本图
p < -  ggplot aes（x = TS，y = price，group = stock））+ geom_line（aes（color = stock））
 
＃自定义托盘
 custom_pal < -  c（＃002776 ，＃81BC00，＃00A1DE，＃72C7E7，＃3C8A2E，＃BDD203，
＃313131，＃335291，＃9AC933，＃33B4E5 ＃8ED2EC，＃63A158，
＃CADB35，＃575757，＃4C689F，＃A7D04C，＃4CBDE8，＃9DD8EE，
＃ 76AD6D，＃D1DF4F，＃8C8C8C，＃7F93BA，＃C0DE80，＃80D0EE，
＃B8E3F3，＃9DC496，＃DEE881，＃B4B4B4 ＃99A9C8，＃CDE499，
＃99D9F2，＃C7E9F5，＃B1D0AB，＃E5ED9A，#DCDCDC）
 
＃函数改变颜色
 change_colours<  -  function（ggplot_obj，pal）{
p<  -  ggplot_obj 
 group_data<  -  p $ data [，as.character（p $ mapping $ group ）] 
 n_groups < -  length（unique（group_data））
 group_data_cols < -  pal [group_data] 
 
p + theme_light（）+ geom_line（color = group_data_cols）
} 
 
p 
 p1 < -  change_colours（ggplot_obj = p，pal = custom_pal）
 p1 
  

我希望将 change_colours（）函数更改为更通用的 geom_ * 类型图层

任何帮助将非常感激。

解决方案

以下应该做你所做的。注意，它只改变映射到变量的颜色。直接传递到 geom _ * 的颜色不会受到影响（下面有一个示例）。对于修改 color 或 填充（以先映射的方法）的方法，

  change_colours<  -  function（p，palette）{
n<  -  nlevels p $ data [[deparse（p $ mapping $ group）]]）
 tryCatch（as.character（palette），
 error = function（e）stop（'palette should be a vector of colors' ，call。= FALSE））
 if（n> length（palette））stop（'Paless中没有足够的颜色'）
 pal<  -  function（n）palette [seq_len ] 
p + theme_light（）+ discrete_scale（'color'，'foo'，pal）
} 
 
这里，df来自OP的帖子
p< -  ggplot（df，aes（x = TS，y = price，group = stock））
  

< ：

 ＃NB：custom_pal在OP的帖子中定义
 change_colours（p + geom_line ）），custom_pal）
  

  change_colours（p + geom_point（aes（color = stock）），custom_pal）
  

使用不同的调色板：

  change_colours（p + geom_smooth（aes（color = stock）），
c（'firebrick'，'midnightblue' violet'，'seagreen'））
  

如上所述，这只会更改 color 和 fill 映射到变量。例如，它对以下颜色没有影响：

  change_colours（p + geom_point c（'tomato'，'hotpink'，'cadetblue'），each = 300）），
 custom_pal）
  

b $ b

---

回应OP的< a href =http://stackoverflow.com/questions/34601194/change-colours-to-defined-palette-for-ggplot-objects/34601726#comment56959092_34601726>评论，您可以轻松地检测到什么类型的正在使用映射（例如 alpha ， color ， fill ）。只需看看 p $ layers [[1]] $ mapping 。

如果我们假设第一个填充或 color 第一层的映射是你想改变颜色的映射，你可以这样做：

  change_colours<  -  function p，palette，type）{
n < -  nlevels（p $ data [[deparse（p $ mapping $ group）]]）
 tryCatch（as.character（palette），
 error = function（e）stop（'palette应该是一个颜色的向量，调用。= FALSE））
 if（n> length（palette））stop（'调色板中没有足够的颜色' $ b if（missing（type））
 type<  -  grep（'color | fill'，names（p $ layers [[1]] $ mapping），value = TRUE）[1] 
 pal <-function（n）palette [seq_len（n）] 
p + theme_light（）+ discrete_scale（type，'foo'，pal）
} 
 
＃ df来自OP的帖子
p < -  ggplot（df，aes（x = TS，y = price，group = stock））
  

示例：

更改填充而不是颜色：

  change_colours（p + geom_point（aes（fill = stock），pch = 21），
c（'white'，'grey50'，'grey80'））
  

显示第一个映射的颜色/填充美感的优先级：

  change_colours（p + geom_point（fill = stock，color = stock） ，pch = 21）+ 
 geom_smooth（aes（color = stock）），
c（'black'，'grey50'，'grey80'））
  / pre> 
 
 
  
  change_colours（p + geom_point（aes（color = stock，fill = stock），pch = 21）+ 
 geom_smooth（aes（color = stock）），
c（'black'，'grey50 '，'grey80'））
  
  
使用类型参数覆盖第一个映射美学的优先级，例如：
  change_colours（p + geom_point（aes（color = stock，fill = stock），pch = 21）+ 
 geom_smooth ，
c（'black'，'grey50'，'grey80'），type ='fill'）
  
I would like to change the default colours to a specific palette for all geom_* type objects by using a function.

Below is an example for geom_line() and using the function change_colours()
# load ggplot2 and tidyr library
require(ggplot2)
require(tidyr)

# create a mock data frame
df <- data.frame(cbind(var1=500*cumprod(1+rnorm(300, 0, 0.04)),
                       var2=400*cumprod(1+rnorm(300, 0, 0.04)),
                       var3=300*cumprod(1+rnorm(300, 0, 0.04))))
df$TS <- as.POSIXct(Sys.time()+seq(300))
df <- gather(df, stock, price, -TS)

# create basic base graph
p <- ggplot(df, aes(x=TS, y=price, group=stock))+geom_line(aes(colour=stock))

# custom pallet
custom_pal <- c("#002776", "#81BC00", "#00A1DE", "#72C7E7", "#3C8A2E", "#BDD203", 
                "#313131", "#335291", "#9AC933", "#33B4E5", "#8ED2EC", "#63A158", 
                "#CADB35", "#575757", "#4C689F", "#A7D04C", "#4CBDE8", "#9DD8EE", 
                "#76AD6D", "#D1DF4F", "#8C8C8C", "#7F93BA", "#C0DE80", "#80D0EE", 
                "#B8E3F3", "#9DC496", "#DEE881", "#B4B4B4", "#99A9C8", "#CDE499", 
                "#99D9F2", "#C7E9F5", "#B1D0AB", "#E5ED9A", "#DCDCDC")

# the function the change colours
change_colours <- function(ggplot_obj, pal){
  p <- ggplot_obj
  group_data <- p$data[, as.character(p$mapping$group)]
  n_groups <- length(unique(group_data))
  group_data_cols <- pal[group_data]

  p + theme_light()+ geom_line(colour=group_data_cols)
}

p
p1 <- change_colours(ggplot_obj=p, pal=custom_pal)
p1
I am hoping to change the change_colours() function to be more generic for all geom_* type layers

Any help would be much appreciated.
解决方案
The following should do what you're after. Note that it only changes colours that are mapped to variables. Colour passed directly to the geom_* won't be affected (there's an example below). For an approach that modifies colour or fill (whichever is mapped first), see the bottom half of this post.
change_colours <- function(p, palette) {
  n <- nlevels(p$data[[deparse(p$mapping$group)]])
  tryCatch(as.character(palette), 
           error=function(e) stop('palette should be a vector of colours', call.=FALSE))
  if(n > length(palette)) stop('Not enough colours in palette.')
  pal <- function(n) palette[seq_len(n)]
  p + theme_light() + discrete_scale('colour', 'foo', pal)
}

# Here, df is from the OP's post
p <- ggplot(df, aes(x=TS, y=price, group=stock)) 


Examples:

# NB: custom_pal is defined in the OP's post
change_colours(p + geom_line(aes(colour=stock)), custom_pal)
change_colours(p + geom_point(aes(colour=stock)), custom_pal)


And with a different palette:
change_colours(p + geom_smooth(aes(colour=stock)), 
               c('firebrick', 'midnightblue', 'violet', 'seagreen'))


As mentioned above, this will only change colour and fill that are mapped to variables. For example, it'll have no effect on the colours for the following:
change_colours(p + geom_point(colour=rep(c('tomato', 'hotpink', 'cadetblue'), each=300)), 
               custom_pal)




In response to the OP's comment, you can easily detect what types of mappings are being used (e.g. alpha, colour, fill). Just look at p$layers[[1]]$mapping. 

If we assume that the first fill or colour mapping of the first layer is the mapping for which you want to change colours, you can do:
change_colours <- function(p, palette, type) {
  n <- nlevels(p$data[[deparse(p$mapping$group)]])
  tryCatch(as.character(palette), 
           error=function(e) stop('palette should be a vector of colours', call.=FALSE))
  if(n > length(palette)) stop('Not enough colours in palette.')
  if(missing(type)) 
    type <- grep('colour|fill', names(p$layers[[1]]$mapping), value=TRUE)[1]
  pal <- function(n) palette[seq_len(n)]
  p + theme_light() + discrete_scale(type, 'foo', pal)
}

# Here, df is from the OP's post
p <- ggplot(df, aes(x=TS, y=price, group=stock))


Examples:

Changing fill instead of colour:
change_colours(p + geom_point(aes(fill=stock), pch=21), 
               c('white', 'grey50', 'grey80'))


Showing priority of first mapped colour/fill aesthetic:
change_colours(p + geom_point(aes(fill=stock, color=stock), pch=21) +
                 geom_smooth(aes(color=stock)), 
               c('black', 'grey50', 'grey80'))
change_colours(p + geom_point(aes(color=stock, fill=stock), pch=21) +
                 geom_smooth(aes(color=stock)), 
               c('black', 'grey50', 'grey80'))


Override the priority of the first mapped aesthetic with the type argument, e.g.:
change_colours(p + geom_point(aes(color=stock, fill=stock), pch=21) +
                 geom_smooth(aes(color=stock)), 
               c('black', 'grey50', 'grey80'), type='fill')


                        
这篇关于将颜色更改为ggplot对象的定义调色板的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！