1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
if(requireNamespace("RColorBrewer")) {
library("colorspace")
brewer_seq <- c(
"YlOrRd", "YlOrBr", "OrRd", "Oranges", "YlGn", "YlGnBu",
"Reds", "RdPu", "PuRd", "Purples", "PuBuGn", "PuBu",
"Greens", "BuGn", "GnBu", "BuPu", "Blues"
)
for(i in brewer_seq) specplot(RColorBrewer::brewer.pal(9, i), sequential_hcl(9, i, rev = TRUE), main = i)
brewer_divx <- c("Spectral", "RdYlGn", "RdYlBu", "RdGy", "RdBu", "PiYG", "PRGn", "PuOr", "BrBG")
for(i in brewer_divx) specplot(RColorBrewer::brewer.pal(11, i), divergingx_hcl(11, i), main = i)
}
|
