R 如何将网格贴图与简单形状文件重叠

我是新来的有r的人，我有下一个问题： 我正在尝试绘制两张地图，第一张是光栅堆栈，其中我有来自biomod2模型的结果。 我正在使用函数rasterVis:：levelplot，因为我需要一个级别表示。 我的问题是，我想添加国家限制，如下图所示 在前面的步骤中，我使用了以下功能：

data("wrld_simpl") 
plot(wrld_simpl, add=TRUE, border='dark grey')

但这一步是不可能的

我正在使用的代码是下一个：

`present<-raster::stack("D:\\TFM\\Especies\\A.Bicornis\\proj_current\\proj_current_A.Bicornis_TSSbin.grd")
future<-raster::stack("D:\\TFM\\Especies\\A.Bicornis\\proj_future\\proj_future_A.Bicornis_TSSbin.grd")
Change<-BIOMOD_RangeSize(CurrentPred=Bueno,FutureProj=Bueno2.6)
Change$Compt.By.Models
plot(Change$Diff.By.Pixel)
Future2.6stack<-stack(Change$Diff.By.Pixel)
my.at <- seq(-2.5,1.5,1)
myColorkey <- list(at = my.at, labels = list(labels = c("lost", "pres", "abs", "gain"),
                at = my.at[-1]-0.5,))
colours <- colorRampPalette(c("red","green","yellow","blue"))
rasterVis::levelplot(Future2.6stack, 
                        main="Cambio de area 2.6",
                        colorkey = myColorkey,margin=F,
                        col.regions=colours)`

`presentSee。