Qurak

Degree centrality in social networks

3 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。

ステップ 1
g = ExampleData[{"NetworkGraph", "FamilyGathering"}];

出力なし - このステップは次のステップの準備をします。

ステップ 2
Part[VertexList[g], Ordering[EigenvectorCentrality[g], All, Greater]]
出力
VertexList[ExampleData[{NetworkGraph, FamilyGathering}]]
ステップ 3
cc = DegreeCentrality[g];
HighlightGraph[g, Table[Style[VertexList[g][[i]], ColorData["TemperatureMap"][cc[[i]] / Max[cc]]], {i, VertexCount[g]}], ImageSize -> 300]
出力
HighlightGraph[ExampleData[{NetworkGraph, FamilyGathering}], Table[VertexList[g][[i]], {i, VertexCount[g]}], ImageSize -> 300]

使用する関数

関連レシピ

すべてのレシピ · 関数リファレンス · MCPクライアントから使う