Find people with more influence in a social network.
Wolfram Language code: g = ExampleData[{"NetworkGraph", "FamilyGathering"}];Wolfram Language code: Part[VertexList[g], Ordering[EigenvectorCentrality[g], All, Greater]]
Highlight important people:
Wolfram Language code: cc = DegreeCentrality[g];
HighlightGraph[g, Table[Style[VertexList[g][[i]], ColorData["TemperatureMap"][cc[[i]] / Max[cc]]], {i, VertexCount[g]}], ImageSize -> 300]