追加されたシェイプファイルの背景色を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'))