如何修复多个样图中的颜色比例尺？

我正在几个空气质量站之间进行 idw 插值。对于最终的可视化效果，我想将所有制作的图像折叠成 GIF。一切正常，唯一的问题是每个图像中值的比例会发生变化，并且比例会随着值（最小值 - 最大值）而变化。 如何将颜色比例设置为固定值？

这是一些示例数据：

data(meuse.grid)

coords <- SpatialPixels(SpatialPoints(meuse.grid[,c('x',"y")]))
meuseg1 <- SpatialPixelsDataFrame(coords,meuse.grid)
meusedist1 <- SpatialPixelsDataFrame(coords,data=data.frame(meuseg1@data$dist))
meusedist2 <- SpatialPixelsDataFrame(coords,data=data.frame(meuseg1@data$dist*2))

spplot(meusedist1)
spplot(meusedist2)

我正在寻找的是两个图上的比例具有相同的值范围，因此图中的颜色应该缩放到最大比例尺（从 0 到 2）。 听起来没那么复杂，我确信这是可能的，而且没那么难，但由于某种原因，我找不到它或弄清楚它。

Thanks!

尝试使用at修复颜色中断的属性：

spplot(meusedist1, at = seq(0,2,.1))

或者，单个（共享）图例由以下方式创建：

meuseg1$dist2 = meuseg1$dist * 2
spplot(meuseg1, c("dist", "dist2"))