7

Here we have a simple example

Clear["Global`*"];

col = {Green, Blue, Red, Purple};
lab = {"Label 1", "Label 2", "Lable 3", "Label 4"};
leg = PointLegend[col, lab, LegendMarkers -> {Style[●, 12]}, LabelStyle -> {FontFamily -> "Helvetica", 17}]

enter image description here

Is there a way to reduce the vertical distance between the labels?

Vaggelis_Z
  • 8,740
  • 6
  • 34
  • 79

1 Answers1

7

You can use the (undocumented) option Spacings:

Row[PointLegend[col, lab, 
    LegendMarkers -> {Style[\[FilledCircle], 12]}, 
    LabelStyle -> {FontFamily -> "Helvetica", 17}, 
    Spacings -> #] & /@ {.1, .5, 1}]

enter image description here

kglr
  • 394,356
  • 18
  • 477
  • 896