Legend Key Size parameter only changes text's size, not symbols'

[Felixmil]

When changing theme's legend.key.size, it does not have any effect on the legend keys sizes:

library(tlf)
emptyPlot <- initializePlot()
scatterPlot <- addScatter(x = c(1, 2, 3), y = c(1, 2, 3))

scatterPlot + ggplot2::theme(legend.key.size =  ggplot2::unit(1, "pt"))

scatterPlot + ggplot2::theme(legend.key.size =  ggplot2::unit(10, "pt"))

^{Created on 2023-08-07 with reprex v2.0.2}

[Felixmil]

Similar result is obtained when using {ospsuite}. This is because LegendKeySize is actually not related to keysize in tlf.

In default-plot-configuration.R

...
    legendKeysSize = tlf::PlotAnnotationTextSize$plotLegendCaptionSize,
    legendKeysColor = "black",
    legendKeysFontFamily = "",
    legendKeysFontFace = tlf::FontFaces$plain,
    legendKeysAngle = 0,
    legendKeysAlign = tlf::Alignments$left,
..

in utilities-plotting.R:

  legendKeysFont <- tlf::Font$new(
    size = generalPlotConfiguration$legendKeysSize,
    color = generalPlotConfiguration$legendKeysColor,
    fontFamily = generalPlotConfiguration$legendKeysFontFamily,
    fontFace = generalPlotConfiguration$legendKeysFontFace,
    angle = generalPlotConfiguration$legendKeysAngle,
    align = generalPlotConfiguration$legendKeysAlign
  )

So changing the legendKeys related settings will actually affect what is defined as legend.text in {ggplot2} instead of legend.key.

So I would do 3 things here:

1. Rename the legendKeys... properties to legendText...
2. Add legendKeys properties (size, but also width and height to solve Spacing between legend entries and between the symbol and the text is too big. esqLABS/esqlabsR#508)
3. Make these properties accessible from OSPSuiteR