Geographic maps in R: Italy

As suggested by this post, I created an Italian map

Italian Map with R and sp package

with the following R code using the sp package and the GADM maps

library(sp)
con <- url(“http://gadm.org/data/rda/ITA_adm1.RData”)
print(load(con))
close(con)
# giving random values to the Italian regions (1,2,3,5,1,2,3,4,5,…)
language <- rep(seq(1,5),4)
gadm$language <- as.factor(language)
# choosing colors
col = rainbow(length(levels(gadm$language)))
spplot(gadm, “language”, col.regions=col, main=”Italian Regions”)