최근방 그래프
버전 11의 새로운 기능 NearestNeighborGraph를 사용하여 임의의 데이터 집합의 가장 가까운 이웃 그래프를 생성합니다.
남미 국가의 가장 가까운 이웃 그래프를 생성합니다.
In[1]:=
![Click for copyable input](assets.ko/nearest-neighbor-graphs/In_9.png)
locs = CountryData["SouthAmerica"];
coords = EntityValue[locs, "Position"][[All, 1, {2, 1}]];
In[2]:=
![Click for copyable input](assets.ko/nearest-neighbor-graphs/In_10.png)
g = NearestNeighborGraph[locs, VertexCoordinates -> coords]
Out[2]=
![](assets.ko/nearest-neighbor-graphs/O_8.png)
대륙의 네트워크에 스타일을 지정합니다.
전체 Wolfram 언어 입력 표시하기
In[4]:=
![Click for copyable input](assets.ko/nearest-neighbor-graphs/In_12.png)
Graph[g, opts]
Out[4]=
![](assets.ko/nearest-neighbor-graphs/O_9.png)
임의의 색상 집합에 대해 세가지 가까운 이웃 그래프를 표시합니다.
In[5]:=
![Click for copyable input](assets.ko/nearest-neighbor-graphs/In_13.png)
colors = RandomColor[50]
Out[5]=
![](assets.ko/nearest-neighbor-graphs/O_10.png)
In[6]:=
![Click for copyable input](assets.ko/nearest-neighbor-graphs/In_14.png)
NearestNeighborGraph[colors, 3, VertexShapeFunction -> "Name"]
Out[6]=
![](assets.ko/nearest-neighbor-graphs/O_11.png)