Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Graphics and CityData

• To: mathgroup at smc.vnet.net
• Subject: [mg84807] Graphics and CityData
• From: "Charles L. Snyder" <clsnyder at gmail.com>
• Date: Tue, 15 Jan 2008 03:16:55 -0500 (EST)

Hi -

Very limited Mathematica experience...
I have a large table of cities and number of scientific publications:

City          NumPubs
Atlanta      220
Chicago     130
NewYork    100
Wilmington 25
Miami        10
Denver       5


I want to show the results cartographically, but I want to demonstrate
larger numbers of publications by color (or preferably size) of the
points. The following works, but only allows color to distinguish
broad bins/categories (eg, top 25 are green, next 25 are blue, etc).
Also, this results in repeated overlays instead of one graphic:

g1 = Graphics[{LightBlue, CountryData["UnitedStates", "Polygon"],
   PointSize[Medium], Green,
   Point[Reverse[CityData[#, "Coordinates"]]] & /@  {"Alanta",
     "Chicago"}}]
g2 = Graphics[{Opacity[0.5], LightBlue,
   CountryData["UnitedStates", "Polygon"], PointSize[Medium], Blue,
   Point[Reverse[CityData[#, "Coordinates"]]] & /@  {"NewYork",
     "Wilmington"}}]
g3 = Graphics[{Opacity[0.5], LightBlue,
   CountryData["UnitedStates", "Polygon"], PointSize[Medium], Black,
   Point[Reverse[CityData[#, "Coordinates"]]] & /@  {"Miami",
     "Denver"}}]
Show[g1, g2, g3]

Surely there is a better and easier way to do this
-without a zillion overlays
-perhaps with larger circle indicating more publications?


Thanks in advance!

• Follow-Ups:
  • Re: Graphics and CityData
    • From: Sseziwa Mukasa <mukasa@jeol.com>