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