摩天楼データをインポートし解釈する 

世界で最も高い建物群の位置と画像を示す地図を作成する．

次は建物データを表形式にしたファイルである．

In[1]:=

X FilePrint["ExampleData/Buildings.dat"]

データをインポートし，国名と都市名を解釈して計算可能なEntityオブジェクトを生成する．

In[2]:=

X importedBuildings = SemanticImport["ExampleData/Buildings.dat", Automatic, "NamedRows", HeaderLines -> 1]; Take[importedBuildings, 3]

Out[2]=

建物の名前を解釈して計算可能なEntityオブジェクトを得る．解釈できないものは除く．

In[3]:=

X buildingsAndCities = Cases[ {Interpreter["Building"][#["Name"]], #["City"]} & /@ importedBuildings, {_Entity ..}]

Out[3]=

画像を持つ建物を選び，その地理座標を得る．

In[4]:=

X imagesAndCoordinates = Cases[ {#[[1]]["Image"], #[[2]]["Coordinates"]} & /@ buildingsAndCities, {_Image, _GeoPosition}];

地理座標に従って，世界地図に建物の画像を置く．

In[5]:=

X GeoGraphics[ GeoMarker[#[[2]], #[[1]], "Scale" -> 20.0] & /@ imagesAndCoordinates, ImageSize -> 800, GeoCenter -> {0., -130}, GeoRangePadding -> Scaled[0.2]]

Out[5]=