### 產(chǎn)生RGB顏色
 mycolor=rgb(248, 203, 173, max=255)

########################################
#  漸變色取色
########################################
# 兩個漸變色包
viridis, wesanderson(https://github.com/karthik/wesanderson)

### ggplot2默認漸變色系
mycolors <- scales::hue_pal(c=100)(25)
scales::show_col(mycolors)

### viridis漸變色
### 紫色到黃色漸變
viridis::viridis(100)
colorRampPalette(c("#440154" ,"#21908C", "#FDE725"))(100)
### 藍色-紅色-黃色漸變
viridis::plasma(100)
### 其他可選漸變
viridis::magma(100)
viridis::inferno(100)

### RColorBrewer產(chǎn)生漸變色
### 深藍到淺橙到深紅
color.use <- rev(RColorBrewer::brewer.pal(n=10, name='Spectral'))
mycolors <- colorRampPalette(color.use)(99)

########################################
### 離散色取色
########################################
### RColorBrewer離散色系
library(RColorBrewer)
mycolors <- c(brewer.pal(name="Dark2", n=8), 
brewer.pal(name="Accent", n=7), 
brewer.pal(name="Set1", n=9), 
brewer.pal(name="Set3", n=12), 
brewer.pal(name="Set2", n=8), 
brewer.pal(name="Paired", n=10),
brewer.pal(name="Pastel1", n=9),
brewer.pal(name="Pastel2", n=7))
mycolors <- unique(mycolors)

########################################
### 如何設(shè)置漸變色
########################################
# 設(shè)置圖注中漸變顏色的顯示和范圍
scale_color_gradient(low="red", high="green", limits=c(0,1))
# 設(shè)置圖注中3個漸變顏色的顯示和范圍
scale_colour_gradient2(low="red", mid='lightgreen', high ="purple", 
midpoint=0.125, limits=c(0,0.25))
# 設(shè)置圖注中n個漸變顏色的顯示和范圍
scale_colour_gradientn(colours=c("red",'lightgreen','lightblue','purple'), 
limits=c(0,0.05))