#换颜色1
col1 = colorRampPalette(c("lightskyblue","#FEFCBA", "#FC9961"),
bias=1)(15) #15为分成多少个过度颜色
#换颜色2
library(RColorBrewer)
display.brewer.all() #显示所有调色板
brewer.pal.info #画板对应颜色名称,最大颜色数量,
col2<-brewer.pal(5, "YlOrRd") #选色盘的几种
pal<-colorRampPalette(col2)
colors2<-pal(50) #分成多少种颜色



