Ich versuche eine Karte mit positiven und negativen Werten zu zeichnen.

Alle positiven Werte sollten rot und die negativen blau und die Null weiß sein, genau wie in diesem Beispieldiagramm mit diskreten Farben.

Below ist der Code, den ich benutze:

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

Vielen Dank für die Bereitstellung einer allgemeinen Lösung, die auch in anderen Mapping-Übungen angewendet werden kann.