Как добавить текст на уровень?

Question

library(raster)
library(rasterVis)
 r <- raster(nrows=10, ncols=10)
 r <- setValues(r, 1:ncell(r))
levelplot(r)

Я хочу поместить слово (текст), который является "Исходная карта" под xlab "Долгота"

Это возможно?

Answer 1

Это ручное решение, но вы можете использовать mtext разместить текст вокруг полей с line а также adj параметры, чтобы положить его туда, где вы хотите (или text).

plot.new()  # open new plot
 r <- raster(nrows=10, ncols=10)
 r <- setValues(r, 1:ncell(r))
levelplot(r)

mtext("Original map", 1, line=-3.4, adj=0.4)

Answer 2

С помощью библиотеки сетки вы также можете размещать текст.

      plot.new()  # open new plot
 r <- raster(nrows=10, ncols=10)
 r <- setValues(r, 1:ncell(r))
levelplot(r)
library(grid)
trellis.focus("panel", 1, 1, clip.off = TRUE,highlight=TRUE)
grid.text("Hello World!", x = 0.5, y = 0.5,gp = gpar(fontsize = 6))
trellis.unfocus()