1. 基本顏色

1.1 palette()

1.1.1 palette的默認(rèn)顏色

palette()

## [1]"black""red""green3""blue""cyan""magenta""yellow"## [8]"gray"

pie(rep(1,8), col=palette(), border = palette(), labels = palette(), main ="palette")

plette顏色

1.1.2 重新定義palette

超過palette(rainbow(10))的顏色數(shù)量后，顏色會(huì)循環(huán)使用

par(mfrow = c(1,2),mai=c(0.1,0.1,0.5,0.1))

palette(rainbow(10))pie(rep(1,20), col=palette(), border = palette(), labels ="", main ="palette(rainbow(10))")

palette(gray(0:12/12))

pie(rep(1,12), col=palette(), border = palette(), labels ="", main ="palette(gray(0:8/12))")

1

改為palette默認(rèn)的基本顏色，R重啟后會(huì)自動(dòng)恢復(fù)

palette("default")

1.2 colors()

colors()含有657種顏色名稱

par(mfrow = c(1,2),mai=c(0.1,0.1,0.5,0.1))

pie(rep(1,657), col=colors(), border = colors(), labels ="", main ="colors()")

pie(rep(1,27), col=colors()[grep('red', colors())],? ? border = colors()[grep('red', colors())],? ? labels ="", main ="colors()[grep('red', colors())]")

2

2. 色彩空間

2.1 RGB顏色

3

pie(rep(1,3), col = c(rgb(1,0,0),rgb(0,1,0),rgb(0,0,1)))

4

將顏色名稱轉(zhuǎn)換為RGB色彩

col2rgb(c("blue","yellow"))

##? ? ? [,1] [,2]## red? ? ? 0? 255## green? ? 0? 255## blue? 255? ? 0

2.2 HSV顏色

5

par(mfrow = c(1,2),mai=c(0.1,0.1,0.5,0.1))

hsv_seq<-seq(0.0,1.0,by=1/30)

pie(rep(1,30),col=hsv(hsv_seq,1.0,1.0),main="HSV(S=1,V=1)",labels="")

## hsv(hsv_seq, 1.0, 1.0)與rainbow(30)獲取的顏色相同

pie(rep(1,30), col = rainbow(30), labels ="", main = paste("rainbow",30))

6

將RGB色彩轉(zhuǎn)換為HSV色彩

rgb2hsv(col2rgb("blue"))

##? ? ? ? [,1]## h 0.6666667## s 1.0000000## v 1.0000000

2.3 HCL色彩(Hue, Chroma, Luminance)

pie(rep(1,30), col = hcl(seq(0, 360, length = 30)), labels ="", main ="HCL")

7

3. Color Gradients/Color Ramps 漸變色

3.1 自帶的漸變色

R自帶的grDevices包有如下6個(gè)調(diào)色板，傳入獲取顏色的個(gè)數(shù)，就獲得相應(yīng)個(gè)數(shù)的顏色列表，gray()的參數(shù)需在[0,1]。

rainbow()、heat.colors()、terrain.colors()、topo.colors()、cm.colors()、gray()

par(mfrow = c(2,3),mai=c(0.1,0.1,0.5,0.1))

pie(rep(1,12), col = rainbow(12), labels ="", main ="rainbow")

pie(rep(1,12), col = heat.colors(12), labels ="", main ="heat")

pie(rep(1,12), col = terrain.colors(12), labels ="", main ="terrain")

pie(rep(1,12), col = topo.colors(12), labels ="", main ="topo")

pie(rep(1,12), col = cm.colors(12), labels ="", main ="cm")

pie(rep(1,12), col = gray(0:12/12), labels ="", main ="gray")

8

3.2 colorRamp() 和 colorRampPalette()

colorRamp()和colorRampPalette()都可用于建立顏色板。通過傳入希望的主要顏色如藍(lán)、紫，colorRamp()和colorRampPalette都返回一個(gè)函數(shù)。

二者返回的函數(shù)區(qū)別為：colorRamp()返回的函數(shù)像grey()一樣，入?yún)閇0,1]之間的數(shù)列，數(shù)列中數(shù)字個(gè)數(shù)即為函數(shù)返回的顏色板色彩數(shù)。colorRampPalette()返回的參數(shù)則像rainbow()一樣，入?yún)橄Ｍ祷仡伾迳实臄?shù)量。而且通過下例可知，colorRampPalette()返回漸變顏色板函數(shù)，而colorRamp()返回對(duì)比顏色板函數(shù)。雖然都是用同樣的顏色，結(jié)果不同。

par(mfrow = c(1,2),mai=c(0.1,0.1,0.5,0.1))

b2p1 <- colorRampPalette(c("blue","purple"))

b2p2 <- colorRamp(c("blue","purple"))

pie(rep(1,12), labels ="", col = b2p1(12), border = b2p1(12), main ="colorRampPalette")

pie(rep(1,12), labels ="", col = b2p2(seq(0, 1, len = 12)), border = b2p2(seq(0, 1, len = 12)), main ="colorRamp")

9

3.3 RColorBrewer包

雖然說RColorBrewer包中實(shí)際用到的就只有brewer.pal()函數(shù)，但是包中的兩個(gè)優(yōu)點(diǎn)使得其非常實(shí)用。一是，包中顏色板被劃分為序列型(sequential)、離散型(diverging)、分類型（qualitative)這三種基本能滿足統(tǒng)計(jì)作圖需要的類型；二是，顏色都比較協(xié)調(diào)。更多指引見其官網(wǎng)ColorBrewer。

每個(gè)系列顏色數(shù)量是固定的。

序列型顏色板適用于從低到高排序明顯的數(shù)據(jù)，淺色數(shù)字小，深色數(shù)字大。

library(RColorBrewer)display.brewer.all(type ="seq")

10

分類型顏色板比較適合區(qū)分分類型的數(shù)據(jù)。

display.brewer.all(type ="qual")

11

離散型顏色板適合帶“正、負(fù)”的，對(duì)極值和中間值比較注重的數(shù)據(jù)。

display.brewer.all(type ="div")

12

3.4 創(chuàng)建漸變色

利用HSV和HCL創(chuàng)建自己想要的漸變色

par(mfrow = c(1,2),mai=c(0.1,0.1,0.5,0.1))hsv_seq <- seq(0.0,1.0,by=1/30)pie(rep(1,30),col=hsv(hsv_seq,1.0,1.0),main="HSV(S=1,V=1)",labels="")pie(rep(1,30), col = hcl(seq(0,360, length =30)), labels ="", main ="HCL")

13

原文鏈接：https://segmentfault.com/a/1190000006780090