自定义colorRampPalette的Colorbar

> 更多示例： http://www.colbyimaging.com / wiki / statistics / color-bars I have defined a colorRampPalette:my.colors = colorRampPalette(c("light green", "yellow", "orange", "red"))How can I plot a colorbar "legend" item for it, preferably using only the base packages? I am after a rectangle filled with that color gradient.What I am really after is a way to produce the same type of legend (color bar) that is plotted with a "raster" raster:require(raster)plot(raster("myfile.tif"), legend=T)I need to be able to place this on top of another plot. 解决方案 I made a nice flexible function awhile ago to do this.# Function to plot color barcolor.bar <- function(lut, min, max=-min, nticks=11, ticks=seq(min, max, len=nticks), title='') { scale = (length(lut)-1)/(max-min) dev.new(width=1.75, height=5) plot(c(0,10), c(min,max), type='n', bty='n', xaxt='n', xlab='', yaxt='n', ylab='', main=title) axis(2, ticks, las=1) for (i in 1:(length(lut)-1)) { y = (i-1)/scale + min rect(0,y,10,y+1/scale, col=lut[i], border=NA) }}Then you can do something like:> color.bar(colorRampPalette(c("light green", "yellow", "orange", "red"))(100), -1)More examples at: http://www.colbyimaging.com/wiki/statistics/color-bars 这篇关于自定义colorRampPalette的Colorbar的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！