Я пытаюсь построить карту с положительными и отрицательными значениями.

Все положительные значения должны иметь красный цвет, в то время как отрицательные должны иметь синий цвет, а ноль должен иметь белый, как в этом примере графика с дискретными цветами.

Ниже приведен код, который я использую:

library (rasterVis)
ras1 <- raster(nrow=10,ncol=10) 
set.seed(1) 
ras1[] <- rchisq(df=10,n=10*10) 
ras2=ras1*(-1)/2 
s <- stack(ras1,ras2) 
levelplot(s,par.settings=RdBuTheme())

Большое спасибо за предоставление общего решения, которое может быть применено и в других упражнениях по составлению карт.