Skip to main content
1 of 3
kglr
  • 400.5k
  • 18
  • 488
  • 929
labels = Table[i -> Style[Subscript[v, i], 20], {i, 3}]
names = Table[i -> "longname_" <> "v_" <> ToString@i, {i, 3}];
colors = {1 -> Blue, 2 -> Red, 3 -> Green}; 

Legended[ Graph[{1 <-> 2, 2 <-> 3,  3 <-> 1},
  VertexStyle -> colors, VertexSize -> 0.1, 
  VertexLabels -> labels, ImagePadding -> 20],
 SwatchLegend[Last /@ colors, 
  Row[{#[[1]], ": ", #[[2]]}] & /@ Transpose[{labels, names}][[All, All, -1]],
  LegendMarkers -> "Bubble"]]

enter image description here

kglr
  • 400.5k
  • 18
  • 488
  • 929