WOLFRAM

Wolfram Language & System Documentation Center

London Underground

The 10 most-traversed stations—along the shortest paths—of the London Underground.

    
Wolfram Language code: g = \!\(\*GraphicsBox[«4»]\);
Find 10 most-traversed stations:
Wolfram Language code: station = SortBy[Transpose[{VertexList[g], BetweennessCentrality[g]}], Last][[-10 ;; , 1]]
Highlight stations:
Wolfram Language code: highlightedStation[c_, v_, rs_] := Module[{δ = 2 π / 10, r = 3.50 rs}, {Disk[c, rs], {AbsoluteThickness[3], Red, CapForm["Butt"], Circle[c, 0.75 r]}, Table[Circle[c, r, {ϕ δ, (ϕ + 1) δ}], {ϕ, 0, Round[2 π / δ] - 1, 2}]} ]; HighlightGraph[g, station, VertexShapeFunction -> highlightedStation]