if (FALSE) {
library(choroplethrAdmin1)
# map of continental us + southern canada
data("continental_us_states")
lower_canada = c("british columbia", "alberta", "saskatchewan", "manitoba", "ontario", "quebec")
regions = c(lower_canada, continental_us_states)
df = data.frame(region=regions, value=sample(1:length(regions)))
admin1_region_choropleth(df)
}
Run the code above in your browser using DataLab