(*Total 28184 USA city names *)
Take[SortBy[Tally[First /@ CityData[{All, "UnitedStates"}]], Last], -10]
{{"Fairview", 21}, {"Georgetown", 21}, {"Marion", 21}, {"Greenville", 23}, {"Madison", 23}, {"Salem", 24}, {"Springfield", 24}, {"Washington", 25}, {"Clinton", 26}, {"Franklin", 28}}
Where are the "Clinton"?
Graphics[{LightBlue, CountryData["UnitedStates", "Polygon"],
PointSize[Medium], Red,
Point[Reverse[CityData[#, "Coordinates"]]] & /@
CityData[{"Clinton", "UnitedStates"}]}]
No comments:
Post a Comment