配色方案很多，目前只會(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)