markheckmann

library(sp)
library(RColorBrewer)

# get spatial data for Germany on county level
con <- url("http://gadm.org/data/rda/DEU_adm3.RData")
print(load(con))
close(con)

# plot Germany with random colors
col = rainbow(length(levels(gadm$NAME_3)))