R语言绘图配色-RcolorBrewer包学习及进阶—科研工具箱

请关注公众号【叨客学习资料】 在使用网站的过程中有疑问,请来公众号进行反馈哦

RcolorBrewer包

library(RColorBrewer)
display.brewer.all() #展示所有的色板
display.brewer.pal(8,\'Accent\')# 展示\'Accent\'色板中8个颜色

图片[1]-R语言绘图配色-RcolorBrewer包学习及进阶—科研工具箱-叨客学习资料网

看到有三种配色方法
sequential: 生成渐变的颜色,标记连续型数据大小,可选择颜色种类范围是3~9
qualitative:离散的,生成彼此差异明显的颜色,标记分类变量。可选择颜色种类,最小是3,最大根据每个色板的不同。
diverging:分散的,两头重,中间浅,标记数据离群点。可选择颜色种类范围是3~11
根据需要选择配色的名字,比如选择Accent

col <- brewer.pal(8,\'Accent\')# 从Accent 方案中选出8个颜色,并赋值给col
plot(1:8,rep(1,8),col= col,pch=16,cex=2)#绘图看一下颜色
图片[2]-R语言绘图配色-RcolorBrewer包学习及进阶—科研工具箱-叨客学习资料网
  • 从配色方案中选出自己喜欢的颜色,调制自己喜欢的色板
col1<- brewer.pal(8,\'Dark2\')
col2 <- brewer.pal(8,\"Accent\")
mycolor <- c(col1[5:8],col2[1:4])#挑选Dark2中后四个,accent中的前四个
plot(1:8,rep(1,8),col= mycolor,pch=16,cex=2)
图片[3]-R语言绘图配色-RcolorBrewer包学习及进阶—科研工具箱-叨客学习资料网
  • Accent中只有8个颜色,假如我有16个变量,怎么办呢?colorRampPalette()函数

使用colorRampPalette()扩展颜色

#函数正常用法:从blue到red,生成10个渐变色
col <- colorRampPalette(c(\'blue\',\'red\'))(10)
plot(1:10,rep(1,10),col= col,pch=16,cex=2)
图片[4]-R语言绘图配色-RcolorBrewer包学习及进阶—科研工具箱-叨客学习资料网
  • 使用 colorRampPalette()扩展调色板中的颜色
# 从只有8个颜色的Accent中生成16个颜色
col <- colorRampPalette(brewer.pal(8,\'Accent\'))(16)
plot(1:16,rep(1,16),col= col,pch=16,cex=2)
图片[5]-R语言绘图配色-RcolorBrewer包学习及进阶—科研工具箱-叨客学习资料网

内置函数colors ()

colors()#展示657种颜色名称
#通过名称调用颜色

调色板

rainbow()
heat.colors()
terrain.colors()
topo.colors()
cm.colors()
plot(1:10,rep(1,10),col= rainbow(10,alpha = 0.5),pch=16,cex=3)# alpha 设置透明度
plot(1:10,rep(1,10),col= terrain.colors(10),pch=16,cex=3)
图片[6]-R语言绘图配色-RcolorBrewer包学习及进阶—科研工具箱-叨客学习资料网
library(ggsci)
library(\'scales\')

themeset = theme(panel.background=element_rect(fill=\'transparent\', color=\'black\'),axis.title = element_text(size = 20), legend.key=element_rect(fill=\'transparent\', color=\'transparent\'),axis.text = element_text(color=\"black\",size = 20),legend.text=element_text(size=20),legend.title=element_text(size=20))

show_col(colorRampPalette(pal_npg(\'nrc\',alpha = 0.8)(10))(30))#展示所选颜色 
mycolor = colorRampPalette(pal_npg(\'nrc\',alpha = 0.8)(10))(23)#返回颜色值
scale_fill_manual(values = mycolor)
© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发
头像
请输入有效评论哦,肆意灌水或者乱打评论是不会通过的,会影响您评论后获得资源哦~~
提交
头像

昵称

取消
昵称表情

    暂无评论内容