# NOT RUN {
library(GADMTools)
data("Corsica")
Cantons <- listNames(Corsica, 4)
pop <- floor(runif(length(Cantons), min=15200, max=23500))
DAT <- data.frame(Cantons, pop)
choropleth(Corsica, DAT,
adm.join = "Cantons",
value = "pop",
breaks = "sd",
palette="Oranges",
legend = "Population",
title="Population Cantons de Corse")
# }
Run the code above in your browser using DataLab