Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 분석
◄
이전
|
다음
►
응용 분야
소셜 네트워크의 차수 중심성
소셜 네트워크에서 영향력이 큰 사람을 찾아 봅니다.
In[1]:=
X
people = {"Elisabeth", "James", "Anna", "John", "Dorothy", "Linda", "Michael", "Larry", "Carol", "Nancy", "David", "Nora", "Julia", "Ben", "Oscar", "Felicia", "Arlene", "Rudy"};
In[2]:=
X
relations = Join @@ Table[ UndirectedEdge @@@ Subsets[family, {2}], {family, {{"Elisabeth", "Anna"}, {"James", "Anna", "Linda", "Larry", "Nancy"}, {"John", "Dorothy", "David"}, {"Linda", "Michael", "Nora", "Julia"}, {"Larry", "Carol", "Ben", "Oscar"}, {"Nancy", "David", "Arlene"}, {"Oscar", "Felicia"}, {"Arlene", "Rudy"}}}];
In[3]:=
X
g = Graph[people, relations, VertexSize -> Large, VertexLabels -> "Name", ImagePadding -> 30];
In[4]:=
X
cc = DegreeCentrality[g];
In[5]:=
X
HighlightGraph[g, Table[Style[VertexList[g][[i]], ColorData["SolarColors"][cc[[i]]/Max[cc]]], {i, VertexCount[g]}], ImageSize -> 500]
Out[5]=