Wolfram 언어™

최근방 그래프

버전 11의 새로운 기능 NearestNeighborGraph를 사용하여 임의의 데이터 집합의 가장 가까운 이웃 그래프를 생성합니다.

남미 국가의 가장 가까운 이웃 그래프를 생성합니다.

In[1]:=

locs = CountryData["SouthAmerica"]; coords = EntityValue[locs, "Position"][[All, 1, {2, 1}]];

In[2]:=

g = NearestNeighborGraph[locs, VertexCoordinates -> coords]

Out[2]=

대륙의 네트워크에 스타일을 지정합니다.

In[3]:=

opts = { PlotTheme -> "Web", Prolog -> {EdgeForm[Thin], LightGray, EntityValue[locs, "Polygon"]}, PlotRange -> Reverse[GeoBounds[locs]] };

In[4]:=

Graph[g, opts]

Out[4]=

임의의 색상 집합에 대해 세가지 가까운 이웃 그래프를 표시합니다.

In[5]:=

colors = RandomColor[50]

Out[5]=

In[6]:=

NearestNeighborGraph[colors, 3, VertexShapeFunction -> "Name"]

Out[6]=