根据距离对城市进行分组
根据美国前 25 个最大的城市间的地理距离创建分级聚类图.
In[1]:=
cities = EntityList[
EntityClass[
"City", {"Country" -> Entity["Country", "UnitedStates"],
"Population" -> TakeLargest[25]}]]
Out[1]=
In[2]:=
Dendrogram[cities, Left, ImageSize -> 300]
Out[2]=