R语言调色

R中的颜色

R提供了657个颜色名字,还有rbg()函数来自定义颜色,在cairo_pdf中还支持透明度调节

R提供了许多调色板,可以查看默认调色板palette(),也可以使用参数col=1, 2, 3···等使用默认的调色板

col2rgb函数可以把颜色名转为rgb格式的颜色

palette()
## [1] "black"   "red"     "green3"  "blue"    "cyan"    "magenta" "yellow"  "gray"   

> col2rgb(palette())
##       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
## red      0  255    0    0    0  255  255  190
## green    0    0  205    0  255    0  255  190
## blue     0    0    0  255  255  255    0  190

1. 取色器软件

推荐just color picker

小巧绿色版取色器

2. 调色板相关包

RColorBrewer

提供了18种渐变、8种量变、9种不同的调色板

RColorBrewer::display.brewer.all()
3-5 RColorBrewer

colorspace

colorspace包有一个图形界面,能够在R中很方便地自定义调色板,并预览效果,非常推荐使用

colorspace::choose_palette()
调色板gui

具体使用方法

2017-12-04_191029.png
## Generating some synthetic data
x1 <- rnorm(20,mean=2); y1 <- rnorm(20,mean=1)
x2 <- rnorm(20,mean=3); y2 <- rnorm(20,mean=2)
x3 <- rnorm(20,mean=1); y3 <- rnorm(20,mean=3)
 
## Loading the library colorspace
library('colorspace')
 
## Call choose_palette. Note: interactive GUI opens
pal <- choose_palette()
 
## Picking 3 different colors out of your palette
colors_A <- pal(3)
## And picking 3 colors out of the HCL rainbow palette
colors_B <- rainbow_hcl(3)
 
## Create a plot containing 2 subplots
par(mfrow=c(1,2))
 
## Makes a scatterplot with your own choosen colors
plot(c(x1,x2,x3),c(y1,y2,y3),type='n',xlab='x values',
     ylab='y values',main='Example A: scatterplot')
 
points(x1,y1,col=colors_A[1])
points(x2,y2,col=colors_A[2])
points(x3,y3,col=colors_A[3])
 
## The same plot with the rainbow_hcl colors
plot(c(x1,x2,x3),c(y1,y2,y3),type='n',xlab='x values',
     ylab='y values',main='Example B: scatterplot')
 
points(x1,y1,col=colors_B[1])
points(x2,y2,col=colors_B[2])
points(x3,y3,col=colors_B[3])

在线网站colorbrewer2

与colorspace类似,但是只能显示地图的模拟效果,非常喜欢网站提供的配色方案

网址如下:

http://colorbrewer2.org/

3-7.png
参考:

http://www.springer.com/us/book/9783319497501

3. colorpicker包提供的实时调整颜色功能

绘图图形后,为了精心挑选看起来顺眼的颜色,我们不得不更改颜色相关代码,而colorpikcer包实现了颜色选择和绘制图形的高度结合,使我们不需要手动更改代码就能实现颜色的变化,选择plot相关的代码,点击addin中的Plot Colour Helper,即打开默认浏览器,并与当前R session享用共同环境,修改后的代码点击done后会自动更新到Rstudio的编辑器界面

color picker 方便自定义绘图的颜色

如该文http://www.jianshu.com/p/e448b469f0b2中的颜色就是这样选择的,最后点击done后会自动添加如下变量CPCOLS变量,如

CPCOLS <- c("#F01641", "#A19999")

具体相关内容请移步github:https://github.com/daattali/colourpicker

shinyjs包提供的颜色选择器(与colorpicker包同一作者)

可以很方便地选择颜色并粘贴为R的向量格式

shinyjs:::colourPickerAddin()
shinyjs_color_picker.png

4. 参考别人图片的配色

如:http://www.r-graph-gallery.com/all-graphs/

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 213,335评论 6 492
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 90,895评论 3 387
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 158,766评论 0 348
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 56,918评论 1 285
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 66,042评论 6 385
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 50,169评论 1 291
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 39,219评论 3 412
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 37,976评论 0 268
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 44,393评论 1 304
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 36,711评论 2 328
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 38,876评论 1 341
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 34,562评论 4 336
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,193评论 3 317
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 30,903评论 0 21
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,142评论 1 267
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 46,699评论 2 362
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 43,764评论 2 351