r - 如何修复多个 spplots 中的颜色比例尺？

Question

我正在几个空气质量站之间进行 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)。这听起来并没有那么复杂，我相信这是可能的，而且并不那么难，但出于某种原因，我无法找到它或想出它。

谢谢!

Answer 1

尝试使用 at 属性来修复颜色中断:

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

或者，单个(共享)图例由以下人员创建:

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