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在上图中选取颜色