График ближайших соседей
Сгенерируйте график ближайших соседей для коллекции произвольных данных при помощи новой функции NearestNeighborGraph.
Создайте график ближайших соседей для стран Южной Америки.
In[1]:=
locs = CountryData["SouthAmerica"];
coords = EntityValue[locs, "Position"][[All, 1, {2, 1}]];
In[2]:=
g = NearestNeighborGraph[locs, VertexCoordinates -> coords]
Out[2]=
Наложите сеть поверх континента.
код на языке Wolfram Language целиком
In[4]:=
Graph[g, opts]
Out[4]=
Покажите граф трёх ближайших соседей для коллекции случайных цветов.
In[5]:=
colors = RandomColor[50]
Out[5]=
In[6]:=
NearestNeighborGraph[colors, 3, VertexShapeFunction -> "Name"]
Out[6]=