levelplot: как добавить пространство между меткой цвета и меткой оси X

Question

Я пытаюсь использовать levelplot построить простую цифровую модель рельефа (DEM).

Вот мой код:

r1 = raster("ned10dem.tif")
e = extent(460000,480000,4555000,4567500)
rr1 = crop(r1,e)
p = levelplot(rr1, scales=list(x=list(at=seq(450000,480000,4000))),
              margin=F, cuts=200,
              col.regions = terrain.colors(350,alpha=1), 
              colorkey=list(space="bottom"),
              xlab="Easting(m)", ylab="Northing(m)")
plot(p)

Сюжет в итоге выглядит так:

Что я не могу понять, так это как увеличить расстояние между цветовой клавишей и осью X, чтобы цветовой ключ не покрывал метку оси X.

Answer 1

Добавьте следующее:

par.settings = list(layout.heights=list(xlab.key.padding=1))

Тестовый пример:

x <- seq(pi/4, 5*pi, length.out=100)
y <- seq(pi/4, 5*pi, length.out=100)
r <- as.vector(sqrt(outer(x^2, y^2, "+")))
grid <- expand.grid(x=x, y=y)
grid$z <- cos(r^2) * exp(-r/(pi^3))
p <- levelplot(z~x+y, data=grid,
               margin=F, cuts=200,
               par.settings=list(layout.heights=list(xlab.key.padding=1)),
               col.regions=terrain.colors(350, alpha=1), 
               colorkey=list(space="bottom"),
               xlab="Easting(m)", ylab="Northing(m)")
print(p)

Answer 2

Быстрое решение проблемы - добавить новую строку в вашу метку x, как показано ниже: xlab="Easting(m)\n", Это добавит пустую строку между меткой X и легендой.

Answer 3

Другой вариант - определить видовые окна сетки и вставить цветовой ключ вручную, используя draw.colorkey, Исходя из решения, предложенного @rcs, код будет выглядеть примерно следующим образом.

library(grid)

## breaks and colors
at <- seq(-1.1, 1.1, .01)
cols <- terrain.colors(350)

## create plot
p <- levelplot(z ~ x + y, data = grid, at = at,
               col.regions = cols, colorkey = FALSE,
               xlab = list("Easting (m)", cex = .8), 
               ylab = list("Northing (m)", cex = .8))

## start png device
png("~/plot.png", width = 8, height = 9, units = "cm", res = 150)

## insert plot
grid.newpage()
vp_fig <- viewport(x = 0, y = .1, width = 1, height = .9, 
                   just = c("left", "bottom"))
pushViewport(vp_fig)
print(p, newpage = FALSE)

## insert colorkey
downViewport(trellis.vpname("figure"))
vp_key <- viewport(x = .5, y = -.4)
pushViewport(vp_key)
draw.colorkey(key = list(col = cols, at = at, width = .6, height = .6, 
                         space = "bottom"), draw = TRUE)
dev.off()