[R-sig-Geo] spplot - sort legend (colorkey)

Edzer Pebesma edzer.pebesma at uni-muenster.de
Fri Jan 8 07:56:44 CET 2010


Florian, please try

noe$bez1 = factor(noe$bez, levels = rev(levels(noe$bez)))
spplot(noe, zcol="bez1", col.regions=rev(col), col="white", 
scales=list(draw = TRUE), colorkey=TRUE)

Florian Endel wrote:
> Hi,
>
> I downloaded and ploted maps from http://gadm.org/ for Austria and a 
> special province:
>
> ### <CODE> ###
>
> library(sp)
> library(RColorBrewer)
>
> # load from web
> con <- url("http://gadm.org/data/rda/AUT_adm2.RData")
> print(load(con)) # gadm hold all the data!
> close(con)
>
> # select one province
> noe = new("SpatialPolygonsDataFrame")
> noe = gadm[gadm$NAME_1=="Nieder\xf6sterreich",]
>
> noe$NAME_1 = factor(noe$NAME_1)
> noe$NAME_2 = factor(noe$NAME_2)
>
> # utf8
> noe_bez_names = iconv(noe$NAME_2, "ISO_8859-2", "UTF-8")
> noe$bez = factor(noe_bez_names)
>
> # plot
> col = rainbow(length(levels(noe$bez)))
> spplot(noe, zcol="bez", col.regions=col, col="white", scales=list(draw 
> = TRUE), colorkey=TRUE)
>
> ### </CODE> ###
>
> everything just works fine, but the legend (colorkey) is ordered in 
> the wrong direction...
>
> How can I rearrange / sort the legend?
>
> -- 
> greets
> FloE
>
> _______________________________________________
> R-sig-Geo mailing list
> R-sig-Geo at stat.math.ethz.ch
> https://stat.ethz.ch/mailman/listinfo/r-sig-geo


-- 
Edzer Pebesma
Institute for Geoinformatics (ifgi), University of Münster 
Weseler Straße 253, 48151 Münster, Germany. Phone: +49 251 
8333081, Fax: +49 251 8339763  http://ifgi.uni-muenster.de 
http://www.52north.org/geostatistics      e.pebesma at wwu.de



More information about the R-sig-Geo mailing list