Create ichoropleth.R