R语言颜色相关函数

R语言颜色相关函数

#函数

• scales包：show_col显示颜色函数

• palette调色板函数

• rainbow彩虹色函数

• hcl.colors、heat.colors、terrain.colors、cm.colors、topo.colors渐变色函数

#颜色定义

• 英文名，如"red"

• RGB，如rgb(255,0,0,max=255)

• 十六进制代码，如"#FF0000"

#获取及展示颜色

library(scales)  #加载scales包
palette("default")  #启用默认调色板
col1<-palette()  #获取当前调色板中的颜色
palette(c("red","blue"))  #自定义调色板
col2<-palette()

par(mfrow=c(2,2))  #设置当前画板的图形分布
show_col(col1)
show_col(col2)
show_col("red")
show_col(rgb(255,0,0,max=255))
dev.off()

image-20200327151340208.png

rainbow(9)  ##返回颜色代码
show_col(rainbow(9))

#生成1000种颜色
col<-rainbow(1000)
ggplot(data.frame(T=seq(1,1000)),aes(x=T,y=T))+geom_col(width=1,fill=rev(col),show.legend=F)+coord_polar()+theme(axis.text=element_blank(),panel.background=element_blank(),axis.ticks=element_blank())+labs(x=NULL,y=NULL)

image-20200327165637913.png image-20200327170017072.png

col<-heat.colors(1000)  ##红黄白三种颜色的渐变色

ggplot(data.frame(T=rep(1,1000)),aes(x=T,y=T))+geom_col(width=1,fill=col,show.legend=F)+theme(axis.text=element_blank(),panel.background=element_blank(),axis.ticks=element_blank())+labs(x=NULL,y=NULL)

image-20200327171551096.png

col<-terrain.colors(1000)  #绿黄棕白渐变。柿子饼？

ggplot(data.frame(T=rep(1,1000)),aes(x=T,y=T))+geom_col(width=1,fill=col,show.legend=F)+theme(axis.text=element_blank(),panel.background=element_blank(),axis.ticks=element_blank())+labs(x=NULL,y=NULL)+coord_polar()

image-20200327171918907.png

col<-cm.colors(1000)  #青白粉红？紫色？（看不明白）渐变。

ggplot(data.frame(T=rep(1,1000)),aes(x=T,y=T))+geom_col(width=1,fill=col,show.legend=F)+theme(axis.text=element_blank(),panel.background=element_blank(),axis.ticks=element_blank())+labs(x=NULL,y=NULL)+coord_polar(theta="y")

image-20200327172540035.png

col<-topo.colors(1000)  #蓝绿黄渐变。不好看！！！

ggplot(data.frame(T=rep(1,1000)),aes(x=T,y=T))+geom_col(width=1,fill=col,show.legend=F)+theme(axis.text=element_blank(),panel.background=element_blank(),axis.ticks=element_blank())+labs(x=NULL,y=NULL)+coord_polar()

image-20200327174729793.png

hcl.colors(9,"set2")  #从set2调色板中取9种颜色

#该函数含有三种类型的调色板，Qualitative（分类型）、Sequential（序列型）、Diverging（离散型）
hcl.pals("qualitative")  #查看分类型下有哪些调色板

col1<-hcl.colors(9,"set2")  #分类型set2调色板中取9种
col2<-hcl.colors(9,"purples")  #序列型purples调色板中取9种
col3<-hcl.colors(9,"red-green")  #离散型red-green调色板中取9种

par(mfrow=c(1,3))
barplot(matrix(rep(1,9)),col=col1,axes=F,names.arg="分类型")
barplot(matrix(rep(1,9)),col=col2,axes=F,names.arg="序列型")
barplot(matrix(rep(1,9)),col=col3,axes=F,names.arg="离散型")

image-20200328104311846.png

---

长按或扫码关注

image