Цветная панель из пользовательского colorRampPalette

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

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

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

То, что я действительно делаю, - это способ создать тот же тип легенды (цветной), который нанесен на растровый растровый растровый файл:

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

Мне нужно уметь разместить это поверх другого сюжета.

Ответы

Ответ 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)

enter image description here

Дополнительные примеры: http://www.colbyimaging.com/wiki/statistics/color-bars

Ответ 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)

image legend

Ответ 3

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

  • построение изображения(),
  • расширение размера графического устройства с параметром par (pin = c (ширина, длина))
  • вызов colorbar.plot() с использованием исходных значений x и y

Поскольку область сюжетного устройства теперь расширена, легенда появится за пределами исходного изображения(). Эксперименты с значениями x и y приземляют легенду в любом месте. Легенда градиента может быть горизонтальной или вертикальной, используя стандартные параметры аргументов.

Ответ 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, возможно, была добавлена ​​долго после того, как все ваши люди придумали сладкие решения для решения проблемы.