R语言与医学统计图形【8】颜色的选取

R语言基础绘图系统

基础绘图包之低级绘图函数——内置颜色、

1.内置颜色选取

功能657种内置颜色。colors()

调色板函数：palette(), rgb(), rainbow()。

palette默认8种颜色。

#重新配置调色板
palette(rainbow(7))

#恢复默认的调色板
palette('default')

• rgb（red,green,blue)函数，分别加入多少红绿蓝成分，取值0-1。

• hsv函数（hue色调，saturation饱和度，value纯度）构造颜色。

• hcl函数（hue,chroma色度，luminance色度和亮度）构造颜色。

2. RColorBrewer包

内置了三种调色板：连续型、极端值、离散型调色板。

• 连续型调色板
  
  包含18种渐变色。

library(RColorBrewer)
display.brewer.all(type = 'seq') #连续型

age <- rnorm(100,45,10)
hist(age,col = brewer.pal(9,'BuGn'))

• 极端值调色板

display.brewer.all(type = 'div') #极端型

age <- rnorm(100,45,10)
hist(age,col=brewer.pal(11,'BrBG'))

• 离散型调色板
  
  颜色间差异最大，主要用于分类变量。

display.brewer.all(type = 'qual') #离散型

data <- data.frame(胃癌=c(3493,2454,3252),
                     肺癌=c(4632,3632,4742),
                     食管癌=c(2142,1632,2314),
                     肝癌=c(3642,2353,2932),
                     白血病=c(1934,1209,883))
barplot(as.matrix(data),beside = T,col = brewer.pal(3,'Set1'))
legend('topright',legend = c('0-49','50-64','>65'),
       col = brewer.pal(3,'Set1'),pch = 15)

• 自定义调色板: colorRampPalette

color <- brewer.pal(4,'Dark2')
mycolor <- colorRampPalette(color)(15)
#从色系中提取4种颜色，再细分成15种颜色
value <- sample(20:100,10)
barplot(value,col = mycolor)

3. colourpicker插件

功能是展示一个颜色板，自己挑选合适的颜色。插件安装后在Rstudio中的位置如下：

library(colourpicker)
library(ggplot2)
ggplot(mtcars,aes(mpg,wt))+
  geom_point(aes(color=factor(cyl)))+
  scale_color_manual(values = CPCOLS)
#CPCOLS在上图中选取颜色