配色方案很多铅协，目前只會(huì)這一種，但也夠用了犀农。
library(RColorBrewer)
library(scales)
1. 展示調(diào)色板
display.brewer.all(type = "all")
display.brewer.all(type = "seq")
display.brewer.all(type = "div")
display.brewer.all(type = "qual")
2. 展示Set1色條的前三個(gè)色塊
display.brewer.pal(3, "Set1")
3. 截取調(diào)色板
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. 組合調(diào)色板
4.1 在某些畫圖軟件中很有用李破，這些軟件可以接受一個(gè)包含顏色編碼的向量
b1<-brewer.pal(9, "Set1")
b2<-brewer.pal(8, "Set2")
c<-c(b1[c(1,2)],b2[c(1,2)]) #此時(shí)c是包含4個(gè)字符串的向量
4.2 scale_color_manual()也可以使用包含顏色編碼的向量
scale_color_manual(values = c)
