如何在ggplot2垂直填充图例中保持图例标记高度一致

要让垂直图例中所有标记（legend key）的高度保持一致，不管标签的行数多少，你需要同时设置guide_legend中的keyheight参数和theme里的legend.key.height参数——只靠theme的设置会因为文本行数的变化被ggplot自动调整，这就是你之前减小参数时无效的原因。

具体实现代码 #

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"))
  ) +
  guides(fill = guide_legend(keyheight = unit(0.1, "in")))  # 强制固定所有标记高度

批量处理的优化方案 #

因为你要生成数百幅图，建议把图例的设置封装成一个可复用的函数，这样只需要调用函数就能统一应用设置，还能灵活调整参数：

# 定义自定义图例主题函数
my_uniform_legend <- function(key_height = unit(0.1, "in"), text_size = 9) {
  list(
    theme(
      legend.position = "top",
      legend.direction = "vertical",
      legend.key.height = key_height,
      legend.text = element_text(
        size = text_size, 
        margin = margin(t = 5, b = 5, unit = "pt")
      )
    ),
    guides(fill = guide_legend(keyheight = key_height))
  )
}

# 调用示例
ggplot(iris, aes(Sepal.Width, Sepal.Length, fill = Species)) + 
  geom_col() + 
  scale_fill_manual(
    values = c("darkgreen", "blue", "orange"), 
    labels = c("short", "label with\ntwo lines", "long\nmulti-line\nlabel")
  ) + 
  theme_bw() +
  my_uniform_legend(key_height = unit(0.12, "in"))  # 可按需调整高度

原理说明 #

• theme(legend.key.height)控制图例标记背景框的高度
• guides(fill = guide_legend(keyheight))强制所有图例标记的绘图区域高度固定，不会因为标签行数增多而被拉伸
• 两者设置相同的值，就能保证标记在背景框中对齐，同时所有标记高度完全一致

内容的提问来源于stack exchange，提问作者Nova