Create choropleth.R