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"]]
kglr
- 400.5k
- 18
- 488
- 929