如何在图形中找到最大度数的所有顶点？

Question

给出一个图表,比方说

g = Graph[{x -> a, y -> c, a -> b,
           b -> c, a -> c, d -> c,
           a -> d, b -> d},
      VertexLabels -> "Name"] 

如何在图形中找到具有最大度数的所有顶点,即具有最多边数的所有顶点的列表,并在图形中突出显示它们？

在这种情况下,它将是顶点{a,c}.

Answer 1

您通常可以按度数突出显示顶点:

    HighlightGraph[g, 
 Table[Style[VertexList[g][[i]], 
   ColorData["TemperatureMap"][
    VertexDegree[g][[i]]/Max[VertexDegree[g]]]], {i, VertexCount[g]}]]

Answer 2

这是一种使用方法DegreeCentrality:

(* In[41]:= *) max = Pick[VertexList[g], DegreeCentrality[g], Max[DegreeCentrality[g]]]

(* Out[41]= *) {a, c}

(* In[42]:= *) HighlightGraph[g, max]