Измените цвет фона добавленного файла формы на уровне уровня rasterVis

Question

Я хочу изменить цвет океанов (вне границ шейп-файла). Я могу закрепить растр и изменить цвет фона, но здесь я хочу сделать это с добавленным шейп-файлом.

library(raster) 
library(rasterVis) 
library(maps) 
library(maptools) 
library(mapdata) 

r <- raster(nrow=361, ncol=576, ymn=-90, ymx=90) 
values(r) <- 1:ncell(r) 
data(wrld_simpl, package = "maptools") 
levelplot(r)+ layer(sp.polygons(wrld_simpl, lwd=0.1, col='gray')) 

Answer 1

Во-первых, маскирует растр с объектом в SpatialPolygons. Клетки, не охваченные , установлены в NA.

land <- mask(r, wrld_simpl) 

Теперь измените цвет фона (используется для ячеек NA):

catTheme <- rasterTheme(panel.background = list(col='lightskyblue1')) 

И, наконец, показать результат:

levelplot(land, par.settings = catTheme) + 
    layer(sp.polygons(wrld_simpl, 
         lwd=0.1, col='gray'))