将颜色更改为ggplot对象的定义调色板

编程入门 行业动态 更新时间:2024-10-23 07:21:49
本文介绍了将颜色更改为ggplot对象的定义调色板的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧! 问题描述

我想使用函数将所有 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的评论,您可以轻松地检测到什么类型的正在使用映射(例如 alpha , color , fill )。只需看看 p $ layers [[1]] $ mapping 。

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

change_colours< - function p,palette,type){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对象的定义调色板

本文发布于:2023-11-08 20:42:55,感谢您对本站的认可!
本文链接:https://www.elefans.com/category/jswz/34/1570404.html
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。
本文标签:调色板   定义   对象   颜色   ggplot

发布评论

评论列表 (有 0 条评论)
草根站长

>www.elefans.com

编程频道|电子爱好者 - 技术资讯及电子产品介绍!