Is there any way of scaling the sizes of the vertices of a network proportional to the vertex-degrees of the vertices in Mathematica? Thanks.

g = RandomGraph[{6, 10}]

Mathematica graphics

vd = Thread[VertexList@g -> Normalize[VertexDegree@g, Total]];
g2 = SetProperty[g, VertexSize -> vd]

Mathematica graphics

  • $\begingroup$ Great! Why are you dividing by 20 here? $\endgroup$ – dbm May 6 '16 at 18:21
  • $\begingroup$ @dbm, dividing by 20 was to scale the vertex sizes. It is removed in the updated post. $\endgroup$ – kglr May 6 '16 at 18:26
  • $\begingroup$ Got it. However, this code doesn't work for say g = RandomGraph[{90, 120}] $\endgroup$ – dbm May 6 '16 at 18:29
  • $\begingroup$ @dbm, maybe you can use Normalize[VertexDegree@g, Max] for large graphs. $\endgroup$ – kglr May 6 '16 at 18:33
  • $\begingroup$ No I mean when you draw the larger network with your code, it doesn't show any nodes at all. I guess you just need to multiply Normalize by 100 or something, otherwise the node size would be scaled too small to see. $\endgroup$ – dbm May 6 '16 at 18:37

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.