Wie zur Verbesserung der räumlichen raster map mit ggplot, wenn im Vergleich zu spplot?

Wie kann ich die Legende von räumlichen raster map plot mit ggplot im Vergleich zu einer spplot() Legende?

Ich möchte plot Geo-maps mit ggplot() anstelle von ssplot() allerdings gibt es ein paar Dinge, die ich möchte, zu verbessern, wenn im Vergleich zu den spplot:

  1. erstellen eines ggplot-Legende, die von kleinen (unten) zu hohen Werten (oben)
  2. Haben die Brüche in der ggplot-Legende ähnlich der ssplot() Legende so, dass ich weiß, was die Grenzen sind von jeder Farbe.

## load packages
require(raster)
require(ggplot2)
require(rgdal)
require(RColorBrewer)
set.seed(1)

r <- raster(xmn=-110, xmx=-90, ymn=40, ymx=60, ncols=40, nrows=40,
          crs="+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100
+ellps=WGS84")
r <- setValues(r,matrix(rnorm(1600, mean=0.4,sd=0.2))) 

## 1. spatial map with spplot
cuts <-seq(minValue(r),maxValue(r),length.out=8)
cuts = round(cuts,digits=2)
col.regions = brewer.pal(length(cuts)+3-1, "RdYlGn")
print( 
spplot(as(r, 'SpatialGridDataFrame'),at=cuts,
col.regions=col.regions,
colorkey=list(labels=list(at=cuts),at=cuts), pretty=TRUE,
scales=list(draw=T)
) 
)

## 2. spatial map with ggplot
p = rasterToPoints(r); df = data.frame(p)
colnames(df) = c("x", "y", "NDVI")

p  <- ggplot(data=df) + geom_tile(aes(x, y, fill=NDVI)) +
coord_equal() + labs(x=NULL, y=NULL) + 
scale_fill_gradient2(low="red", mid="yellow",high="green",
limits=c(minValue(r),maxValue(r)), midpoint = 0.4) + theme_bw() +
scale_x_continuous(expand=c(0,0)) + scale_y_continuous(expand=c(0,0))
print(p)

ssplot ( - ) Ergebnis
Wie zur Verbesserung der räumlichen raster map mit ggplot, wenn im Vergleich zu spplot?

ggplot() Ergebnis
Wie zur Verbesserung der räumlichen raster map mit ggplot, wenn im Vergleich zu spplot?

  • Bitte verwenden Sie nicht rot-grün-Kontraste. Die 5-10% der Männer mit rot-grün-Schwäche finden Sie sehr schwer zu Lesen.
  • der link zu Koske ' s Seite - zeigt mehr oder weniger das, was ich gerne tun würde. Ich werde zu erkunden ggplot() Kapazität weitere, Farben anpassen,verbessern, Legende und nach einem update weiter unten. Alle Tipps/Beispiele sind willkommen. Dank
InformationsquelleAutor Janvb | 2011-07-28
Schreibe einen Kommentar