该博文后续更新见http://qinqianshan.com/colors-in-r/

RColorBrewer是一个R颜色包，使用http://colorbrewer2.org/这个网站提供的颜色。我们画一个包括八个box的boxplot时，或者在x-y散点图上画六条线时，该怎样选择颜色呢？这个包就可以帮你。

=======哪些颜色系可以使用？=======

### Load the package or install if not present

if (!require(\"RColorBrewer\")) {

install.packages(\"RColorBrewer\")

library(RColorBrewer)

}

### Set the display a 1 by 1 grid

par(mfrow=c(1,1))

#比如mfrow(2,3)就是指将绘图区域分成2行3列，并按行的顺序依次绘图填充；

### Show all the colour schemes available

display.brewer.all()

Sequential，按顺序渐变的。- Light colours for low data, dark for high data

Diverging，彼此之间差异变化较大的。- Light colours for mid-range data, low andhigh contrasting dark colours

Qualitative，这个用于最大程度地显示不同类之间的差别。- Colours designed to give maximum visual difference betweenclasses

=======如何使用RColorBrewer？=======

### Load the package or install if not present

if (!require(\"RColorBrewer\")) {

install.packages(\"RColorBrewer\")

library(RColorBrewer)

}

### Set the display a 1 by 1 grid

par(mfrow=c(1,1))

### Generate random data matrix

rand.data -replicate(8,rnorm(100,100,sd=1.5))

### Draw a box plot, with each box coloured by the \'Set3\'palette

col=brewer.pal(8,\"Set3\")表示使用Set3的8种颜色。

=======其他画图函数中的使用=======

### Load the package or install if not present

if (!require(\"RColorBrewer\")) {

install.packages(\"RColorBrewer\")

library(RColorBrewer)

}

### Set the display a 2 by 1 grid

par(mfcol=c(2,1))

### Generate random data matrix

rand.data -replicate(8,rnorm(100,100,sd=1.5))

### Draw plot of counts coloured by the \'Set3\'pallatte

br.range -seq(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)

cols -brewer.pal(8,\"Set3\")

lapply(1:ncol(results),function(x)lines(results[,x],col=cols[x],lwd=3))

### Draw a pie chart

table.data - table(round(rand.data))

cols -colorRampPalette(brewer.pal(8,\"Dark2\"))(length(table.data))

pie(table.data,col=cols)

=======颜色不够用怎么办？=======

if (!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.data -replicate(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种渐变色。

Ps:

cols -colorRampPalette(brewer.pal(9,\"Blues\"))(10)

cols - brewer.pal(8,\"Set3\")[X]

[]指定调用其中的第几个颜色

87%完美的日子http://blog.sina.com.cn/s/blog_681aaa5501016tk4.html