配色方案很多，目前只会这一种，但也够用了。
library(RColorBrewer)
library(scales)
1. 展示调色板
display.brewer.all(type = "all")
display.brewer.all(type = "seq")
display.brewer.all(type = "div")
display.brewer.all(type = "qual")
2. 展示Set1色条的前三个色块
display.brewer.pal(3, "Set1")
3. 截取调色板
mycolors<-brewer.pal(3, "Set1")
3.1 查看编码和颜色
> mycolors
[1] "#E41A1C" "#377EB8" "#4DAF4A"
> mycolors[3]
[1] "#4DAF4A"
> show_col(mycolors[2])
> show_col(mycolors[c(2,3)],labels = F)
4. 组合调色板
4.1 在某些画图软件中很有用，这些软件可以接受一个包含颜色编码的向量
b1<-brewer.pal(9, "Set1")
b2<-brewer.pal(8, "Set2")
c<-c(b1[c(1,2)],b2[c(1,2)]) #此时c是包含4个字符串的向量
4.2 scale_color_manual()也可以使用包含颜色编码的向量
scale_color_manual(values = c)
