r - 用于填充的垂直图例中的一致图例键高度

Question

我想在我的情节中使用垂直图例。我的图例标签很长，并且它们占用的行数不同。但是，我希望图例显示每个键的一致高度。因此，在下面的图中，我希望所有图例键与第一个（绿色）键的高度相同。如果我增加，我可以使所有图例键的高度相同legend.key.height，但如果我减少它，则不能。

我宁愿一个适用于多个图的解决方案 - 我正在输出数百个图，每个图都有不同的图例/文本长度。

library(ggplot2)

ggplot(iris, aes(Sepal.Width, Sepal.Length, fill = Species)) +
  geom_col() +
  scale_fill_manual(values = c("darkgreen", "blue", "orange"),
                    labels = c("label with one line",
                               "label with\ntwo lines",
                               "label\nwith\nthree lines")) + 
  theme_bw() +
  theme(legend.position = "top",
        legend.direction = "vertical",
        legend.key.height = unit(0.1, "in"),
        legend.text = element_text(size = 9,
                                       margin = margin(t = 5, b = 5, unit = "pt")))

标签： rggplot2heightlegendfill