RColorBrewer包
分為三種類(lèi)型:
1.連續(xù)型調(diào)色板: 適用于從低到高（漸變）的有序數(shù)據(jù)数冬。
連續(xù)型調(diào)色板
2.離散型調(diào)色板: 同時(shí)強(qiáng)調(diào)中端臨界值和數(shù)據(jù)范圍兩端的極端值囊咏。
離散型調(diào)色板
3.定性調(diào)色板: 適用于名義型或分類(lèi)型變量。 它們并不代表組之間的大小差異丰包。
定性調(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
