Группирование городов по расстоянию друг от друга
Создайте иерархические группы для 25 самых больших городов США на основе географического расстояния между ними.
In[1]:=
![Click for copyable input](assets.ru/grouping-cities-by-distance/In_77.png)
cities = EntityList[
EntityClass[
"City", {"Country" -> Entity["Country", "UnitedStates"],
"Population" -> TakeLargest[25]}]]
Out[1]=
![](assets.ru/grouping-cities-by-distance/O_61.png)
In[2]:=
![Click for copyable input](assets.ru/grouping-cities-by-distance/In_78.png)
Dendrogram[cities, Left, ImageSize -> 300]
Out[2]=
![](assets.ru/grouping-cities-by-distance/O_62.png)