自定义colorRampPalette的Colorbar

Question

我已经定义了colorRampPalette：

my.colors = colorRampPalette(c("light green", "yellow", "orange", "red"))

如何为其绘制颜色条“图例”项目，最好只使用基础包？我在一个充满了颜色渐变的矩形之后。

我真正想要的是一种生成使用“光栅”栅格绘制的相同类型图例（颜色条）的方法：

require(raster)
plot(raster("myfile.tif"), legend=T)

我需要能够把它置于另一个情节之上。

Answer 1

前一段时间我做了一个很好的灵活功能。

# Function to plot color bar
color.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)
    }
}

然后你可以做类似的事情：

> color.bar(colorRampPalette(c("light green", "yellow", "orange", "red"))(100), -1)

更多示例：http://www.colbyimaging.com/wiki/statistics/color-bars

Answer 2

制作一个矩阵，使用带有某些轴参数的图像......

my.colors = colorRampPalette(c("light green", "yellow", "orange", "red"))
z=matrix(1:100,nrow=1)
x=1
y=seq(3,2345,len=100) # supposing 3 and 2345 are the range of your data
image(x,y,z,col=my.colors(100),axes=FALSE,xlab="",ylab="")
axis(2)

Answer 3

来自fields包的

colorbar.plot（）是标准解决方案。许多人会在这里寻找将图例置于标准绘图区域或原始x / y范围之外的解决方案。 colorbar.plot（）的这种限制很容易通过以下方式克服：

1. 绘制图像（），
2. 使用par（pin = c（宽度，长度））
扩展绘图设备的大小
3. 使用原始x和y值
调用colorbar.plot（）

由于绘图设备的区域现在已展开，因此图例将显示在原始图像（）图之外。尝试使用x和y值可以将图例置于任何您想要的位置。使用标准参数选项，渐变图例可以是水平或垂直的。

Answer 4

我知道这是一个非常古老的问题，答案都很棒。我只想指出你可以从levelplot平滑颜色条。

制作一些假数据和颜色渐变

mat = matrix(rnorm(400,1,1), ncol=20)
grad = rev(rainbow(1000, start=rgb2hsv(col2rgb('green'))[1], 
       end=rgb2hsv(col2rgb('blue'))[1]))

制作绘图并在颜色栏中指定中断

levelplot(mat, col.regions=grad, colorkey = list(at=seq(0,max(mat),length.out=400)))

在你们所有人提出甜蜜的解决方案之后，可能已经添加了levelplot的这个功能。