RColorBrewer包

分為三種類型:
1.連續(xù)型調(diào)色板: 適用于從低到高（漸變）的有序數(shù)據(jù)。

連續(xù)型調(diào)色板

2.離散型調(diào)色板: 同時(shí)強(qiáng)調(diào)中端臨界值和數(shù)據(jù)范圍兩端的極端值。

離散型調(diào)色板

3.定性調(diào)色板: 適用于名義型或分類型變量。 它們并不代表組之間的大小差異。

定性調(diào)色板

繪圖應(yīng)用
需要注意的是RColorBrewer最少一次產(chǎn)生三種顏色，所以對(duì)于只需要兩種顏色的作圖，使用這個(gè)包的時(shí)候會(huì)報(bào)錯(cuò)

# 通過(guò)指定名字來(lái)查看調(diào)色板
display.brewer.pal(n = 8, name = 'RdBu')

RdBu

# RColorBrewer繪制條形圖
barplot(c(2,5,7), col=brewer.pal(n = 3, name = "RdBu"))

Screenshot 2020-04-25 at 2.14.49 PM.png

Wes Anderson包

BiocManager::install("wesanderson")
library(wesanderson)
# See all palettes
names(wes_palettes)
[1] "BottleRocket1"  "BottleRocket2"  "Rushmore1"      "Rushmore"       "Royal1"        
[6] "Royal2"         "Zissou1"        "Darjeeling1"    "Darjeeling2"    "Chevalier1"    
[11] "FantasticFox1"  "Moonrise1"      "Moonrise2"      "Moonrise3"      "Cavalcanti1"   
[16] "GrandBudapest1" "GrandBudapest2" "IsleofDogs1"    "IsleofDogs2" 

wesanderson

繪圖應(yīng)用

barplot(c(2,5,7), col = wes_palette(n=3, name="GrandBudapest1")) 

barplot.png

創(chuàng)建n個(gè)連續(xù)顏色的向量

可以使用函數(shù)rainbow(n), heat.colors(n), terrain.colors(n), topo.colors(n)和cm.colors(n)生成n個(gè)連續(xù)顏色的向量

#Create a vector of n contiguous colors
# Use rainbow colors
barplot(1:5, col=rainbow(5))
# Use heat.colors
barplot(1:5, col=heat.colors(5))
# Use terrain.colors
barplot(1:5, col=terrain.colors(5))
# Use topo.colors
barplot(1:5, col=topo.colors(5))
# Use cm.colors
barplot(1:5, col=cm.colors(5))

Screenshot 2020-04-25 at 2.23.48 PM.png

產(chǎn)生漸變顏色colorRamp()和colorRampPalette()

colorRamp()和colorRampPalette()都可用于建立顏色板。想象一下你現(xiàn)在有一個(gè)色板，色板上有紅色，藍(lán)色，和白色，你就可以用colorRamp()和colorRampPalette()基于這三個(gè)顏色就行調(diào)色,兩者的不同在于，colorRamp() 可以指定一個(gè)小數(shù)，返回一個(gè)指定的顏色值，需要用rgb方法轉(zhuǎn)換；
colorRampPalette()返回指定數(shù)量的顏色值，兩個(gè)方法可以達(dá)到相同的效果：

par(mfrow = c(1, 2))
b2p1 <- colorRampPalette(c("red", "white","blue"))
b2p2 <- colorRamp(c("red", "white","blue"))
barplot(rep(1, 12), axes=F, col = b2p1(12), border = b2p1(12), 
        main = "colorRampPalette")

rgb( b2p2(seq(0, 1, length = 12)), max = 255)
barplot(rep(1, 12), axes=F,col = rgb( b2p2(seq(0, 1, length = 12)), max = 255),
        border = rgb( b2p2(seq(0, 1, length = 12)), max = 255), main = "colorRamp")

Screenshot 2020-04-25 at 2.25.35 PM.png

搬磚from：R語(yǔ)言配色方案: Colors in R