Как исправить полосу цветовой шкалы в нескольких spplots?

Question

Я делаю промежуточную интерполяцию между несколькими станциями качества воздуха. Для окончательной визуализации я хочу свернуть все изображения, которые я сделал в GIF. Все работает, единственная проблема заключается в том, что масштабы значений изменяются в каждом изображении, а масштаб изменяется со значениями (min - max). Как установить масштаб цветов на фиксированное значение?

Вот некоторые примерные данные:

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"))