жно ли в R создать цветовой ключ, подобный приведенному ниже? (это происходит от программного обеспечения Grid Analysis and Display System - Grads).

Есть две функции, которые я не могу воспроизвести в R:

Последовательность нелинейна, но отображается так, как если быЗначения больше 200 серые / Значения меньше 0 белые

Я использую levelplot из rastervis, который строит растры, используя решетку levelplot:

require(raster)
require(rasterVis)

set.seed(200)

X = seq(-40,0,by=1)
Y = seq(-60,-40,by=1)
grid = expand.grid(list(X=X,Y=Y))
Z = rnorm(nrow(grid),mean=10,sd=100)

data = data.frame(grid,Z)
r = rasterFromXYZ(data)
mapTheme <- rasterTheme(region=c('#EEF7FA','#D6F8F7',"#BEDAFF",'#5DA4FF',"#0000FF","#D4F9E2","#00FF7F","#008000","#FFFF00","#FFD27F", "#FFB732"    ,"#EE7600",
                                 "#D53E4F","#FF6A6A"))  
my.at = c(0,1,5,10,15,20,25,30,40,50,75,100,150,200)
myColorkey <- list(at=my.at,
                   space="bottom",
                   labels=list(at=my.at))
p=levelplot(r, par.settings=mapTheme,at = my.at, colorkey=myColorkey,margin=F)
print(p)

Результат:

Как видите, оба значения, меньшие 0 и больше 200, являются белыми, я понятия не имею, как установить значения, которые больше или меньше определенного значения, чтобы отображать его в качестве определенного цвета. Более того, как сделать так, чтобы расстояние между последовательными жирными метками на цветовой клавише было одинаковым, хотя интервалы не совпадают?