RColorBrewer的使用_imitosis_新浪博客

来自 : 新浪博客 发布时间：2021-03-25

Diverging，彼此之间差异变化较大的。 -Light colours for mid-range data, low and highcontrasting dark coloursQualitative，这个用于最大程度地显示不同类之间的差别。- Colours designed to give maximum visual difference betweenclasses=======如何使用RColorBrewer？=======
还是举例说明。运行如下代码。
### Load thepackage or install if not present
(!require(\"RColorBrewer\")) {
install.packages(\"RColorBrewer\")
library(RColorBrewer)
}
### Set thedisplay a 1 by 1 grid
par(mfrow=c(1,1))
### Generaterandom data matrix
rand.datareplicate(8,rnorm(100,100,sd=1.5))
### Draw a boxplot, with each box coloured by the \'Set3\' palette
boxplot(rand.data,col=brewer.pal(8,\"Set3\"))
结果如下：

我们生成了8组随机数，然后作boxplot.
col=brewer.pal(8,\"Set3\")表示使用Set3的8种颜色。

=======其他画图函数中的使用=======
除了boxplot，其他的画图函数中也能使用RColorBrewer。
### Load thepackage or install if not present
(!require(\"RColorBrewer\")) {
install.packages(\"RColorBrewer\")
library(RColorBrewer)
}
### Set thedisplay a 2 by 1 grid
par(mfcol=c(2,1))
### Generaterandom data matrix
rand.datareplicate(8,rnorm(100,100,sd=1.5))
### Draw plotof counts coloured by the \'Set3\' pallatte
br.rangeseq(min(rand.data),max(rand.data),length.out=10)
results - sapply(1:ncol(rand.data),function(x)hist(rand.data[,x],plot=F,br=br.range)$counts)
plot(x=br.range,ylim=range(results),type=\"n\",ylab=\"Counts\")
- brewer.pal(8,\"Set3\")
lapply(1:ncol(results),function(x)lines(results[,x],col=cols[x],lwd=3))
### Draw a piechart
table.data - table(round(rand.data))
colorRampPalette(brewer.pal(8,\"Dark2\"))(length(table.data))
pie(table.data,col=cols)
结果如下：


嗯，忽视这个饼图吧，有点儿丑……

=======颜色不够用怎么办？=======
使用colorRampPalette可以扩展颜色。
(!require(\"RColorBrewer\")) {
install.packages(\"RColorBrewer\")
library(RColorBrewer)
}
Set the display a 1 by 1 grid
par(mfrow=c(1,1))
newpalette -colorRampPalette(brewer.pal(9,\"Blues\"))(10)
Generate random data matrix
rand.datareplicate(10,rnorm(100,100,sd=1.5))
Draw a box plot, with each box coloured by the \'newpalette\'palette
boxplot(rand.data,col=newpalette)
运行结果如下：

colorRampPalette将Blues系列的第九个颜色进行了延伸，产生了10种渐变色。