-
1. 是基于HTML color code 手动输入好的,31个不同颜色:
colwritten<-c("#F3CECE","#F78181","#FF0000","#8A0808","#3B0B0B",
"#F5BCA9","#F7BE81","#FF8000","#B45F04","#8A4B08",
"#F2F5A9","#FFFF00","#AEB404","#868A08","#BEF781",
"#80FF00","#5FB404","#58FAAC","#01DFA5","#00FFFF",
"#04B4AE","#0B615E","#5882FA","#045FB4","#08298A",
"#9F81F7","#7401DF","#3104B4","#CC2EFA","#6A0888",
"#F781F4")
#生成正态分布的31个数据:
num<-rnorm(31, mean=5, sd=1)
num
#绘制dotplot来查看颜色效果
dtplt1<-dotchart(num, color = colwritten,cex = 1.8, pch = 19)
dtplt1

-
查看效果barplot:
barplot(num,col = colmerged, width = 0.03)

=====================================================
-
2. 是基于RColorBrewer 生成的颜色列中选择额的31个不同颜色:
library(RColorBrewer)
display.brewer.all()#查看后选择以下行的行名

-
查看后选择以下行的行名
col2=brewer.pal(11, "Spectral") #只有11个
col3=brewer.pal(9, "RdBu") #只有11个
col4=brewer.pal(11, "PRGn") #只有11个
col5=brewer.pal(10, "BrBG") #只有11个
#写成一个颜色列
colmerged<-c(col2,col3,col4,col5)
#绘制图片
dtplt2<-dotchart(num, color = colmerged,cex = 1.8, pch = 16)
dtplt2

-
绘制dotplot来查看颜色效果
#绘制dotplot来查看颜色效果
dtplt1<-dotchart(num, color = colmerged,cex = 1.8, pch = 19)
dtplt1

- 总的代码为:
colwritten<-c("#F3CECE","#F78181","#FF0000","#8A0808","#3B0B0B",
"#F5BCA9","#F7BE81","#FF8000","#B45F04","#8A4B08",
"#F2F5A9","#FFFF00","#AEB404","#868A08","#BEF781",
"#80FF00","#5FB404","#58FAAC","#01DFA5","#00FFFF",
"#04B4AE","#0B615E","#5882FA","#045FB4","#08298A",
"#9F81F7","#7401DF","#3104B4","#CC2EFA","#6A0888",
"#F781F4")
num<-rnorm(31, mean=5, sd=1)
num
dtplt1<-dotchart(num, color = colwritten,cex = 1.8, pch = 19)
dtplt1
barplot(num,col = colwritten, width = 0.03)
library(RColorBrewer)
display.brewer.all()#查看后选择以下行的行名
col2=brewer.pal(11, "Spectral") #只有11个
col3=brewer.pal(9, "RdBu") #只有11个
col4=brewer.pal(11, "PRGn") #只有11个
col5=brewer.pal(10, "BrBG") #只有11个
colmerged<-c(col2,col3,col4,col5)
dtplt2<-dotchart(num, color = colmerged,cex = 1.8, pch = 16)
dtplt2
barplot(num,col = colmerged, width = 0.03)
=================================================
-
所以写上的color vector 以后作图时可以直接用!
网友评论