Colorbar из пользовательских colorRampPalette

Question

Я определил colorRampPalette:

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

Как я могу чертит Colorbar «легенда» пункт для этого, предпочтительно использовать только базовые пакеты? Я за прямоугольником, заполненным этим цветовым градиентом.

То, что я на самом деле после того, как способ получения того же типа легенды (цветные полосы), которая построена с «растровый» растра:

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

colorbar.plot() из пакета полей является стандартным решением. Многие люди будут искать здесь решения, которые помещают легенду за пределы стандартной площади или исходного диапазона x/y. Это ограничение colorbar.plot() легко преодолевается:

1. черчения вашего изображения(),
2. расширяющегося размера участок устройства с паром (контактный = с (шириной, длиной))
3. вызов colorbar.plot() с использованием исходных значений x и y

Поскольку область устройства участка теперь расширена, легенда появится за пределами исходного изображения(). Эксперименты с значениями 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 могут быть добавлены долго после того, как пришли все вы, ребята, со сладкими обходными решениями.