How do I make a map of several zipcodes or countries?

Questions
,
1

Hey, Community.

I have a list of zipcodes, and for each zipcode I have certain data, say for example the number of people from that zipcode who took a test (this is known data). Picture a spreadsheet with column 1, zipcodes, column 2 , number of people who took the test.

How do I make a map showing those zipcodes? Could I label each zipcode with the number of people who took the test? How?

Thank you.

2

Dear Jorge,

I am not sure whether this helps, because I do not have your data, but here’s an idea. Suppose we look at US zip codes in the range from 85001 to 85055. We can generate the Entities for these codes:

zipcodes = Cases[Interpreter["ZIPCode"][ToString /@ Range[85001, 85055]], _Entity]

Screenshot2017-11-2223.41.23.png
Screenshot2017-11-2223.41.23.png1362×336 26.2 KB

Let’s generate a list of fake numbers of people who did the test:

teststaken = RandomInteger[{1, 500}, Length[zipcodes]]

Then this should work:

GeoRegionValuePlot[Rule @@@ Transpose[{zipcodes, teststaken}]]

Screenshot2017-11-2223.42.43.jpg
Screenshot2017-11-2223.42.43.jpg696×900 135 KB

Hope this goes in the right direction.

Cheers,

Marco

3

Thank you, Marco, This definitely helps!

4

I have a dataset of over a 1000 zipcodes so it takes a lot of time. I’m getting this weird message:

ScreenShot2017-11-27at12.56.27PM.png
ScreenShot2017-11-27at12.56.27PM.png838×186 14.7 KB

It’s really strange, for three reasons at least:

  1. The first, I’ve never sene a “Try again” message. What does that
    mean?
  2. The second reason is that 06883 is a valid zipcode that for
    example, Wolfram Alpha recognizes.
  3. The line I’m running is something like zips = Interpreter[“ZIPCode”] /@ {“95014”, “01545”, “94087”, “95129”,
    “01810”, “10471”, “02067”, “01720”…} It does not always interpret the same ZIP codes the right way. For example, the first time I ran it, there was no issue with code 94568, but the second time it showed the aforementioned error.

What could be the issue? I’d
appreciate any suggestions.

5

How to:

(*https://download.geonames.org/export/zip/allCountries.zip*)

allCountries = 
  Import["/Users/admin/Documents/allCountries.csv", {"TSV", 
    "RawData"}];

zipToCoordinatesMexico = 
  Association[
   Map [#[[2]] ->  Map[ToExpression, #[[10 ;; 11]]] &,  
    Select[allCountries, #[[1]] == "MX" &] ]];