都市を距離でグループ化する
アメリカの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]=
