R 为多个空间图形绘制相同的图例

我有一个for循环，可以通过spplot进行插值和绘制光栅图。 它提供一个单色条，但标签在每个绘图中都会发生变化。 你可以看到下面的区别。

我想在ssplot中使用具有相同标签的相同颜色栏，但无法根据相同的地图图例绘制图形

这是代码的最后一部分

对于（…）{

WElev.IDW=IDW（公式=变量~1，位置=spdf2，新数据=r.pts）

mypath

stack（）

您的绘图和

spplot

光栅堆栈

---

嗨@Rich Pauloo，

stack

适合我，但我的目标是分别绘制每个图形。

s <- stack(raster1, raster2)
spplot(s)

# max and min of the stack
max_r  <- cellStats(s, max) # max of raster stack: legend upper limit
min_r  <- cellStats(s, min) # min of raster Stack: legend lower limit
breaks <- (max_r - min_r)/15 # increase denominator for more breaks
lab    <- seq(min_r, max_r, by = breaks) # create the vector of legend breaks

# now run your for loop and within `spplot`, set the same legend with `at`
for(i in 1:n){
  spplot(raster, at = lab)
  ...
}