Wikipedia記事の位置データを使ってセントラルパーク近辺の地図を作成する
Wikipediaのデータは,自動的にGeoPositionの情報を提供してくれる.
In[1]:=
articles =
WikipediaData["Central Park", "GeoNearbyDataset", MaxItems -> 50];
GeoGraphics[{Red,
Tooltip[Point[#["Position"]], #["Title"] <> " - Distance: " <>
ToString@#["Distance"]]} & /@ (Normal@articles)]
Out[1]=