都市を距離でグループ化する

アメリカの25大都市を，2都市間の地理的距離に基づいて階層的にクラスタリングする．

In[1]:=

cities = EntityList[ EntityClass[ "City", {"Country" -> Entity["Country", "UnitedStates"], "Population" -> TakeLargest[25]}]]

Out[1]=

In[2]:=

Dendrogram[cities, Left, ImageSize -> 300]

Out[2]=