如何在ggplot中垂直对齐两行图例的符号与文本？

问题重现 #

你使用以下数据框和ggplot代码生成图表时，遇到了图例符号与文本未垂直对齐的问题：

数据框定义：

df <- data.frame(somethingthatisverylong = c("aaaaaa", "aaaaaaaaaaaaaaaaaaaaaaaaaaaa"), 
                 col2 = c("b", "d"), 
                 col3 = c(1, 2), 
                 col4 = c(1, 2))

绘图代码：

library(ggplot2)

ggplot(df, aes(col3, col4, color = somethingthatisverylong, shape = col2)) + 
  geom_point() +
  theme(legend.position = "top", legend.box = "vertical", legend.box.just = "left", legend.text.align = 0)

你之前通过手动添加空格填充标签的方式解决，但这种方法不够灵活，以下是几种更优的解决方案：

方案1：统一图例键高度 + 文本垂直居中 #

通过设置legend.key.height统一所有图例键的高度，再用legend.text的vjust参数让文本垂直居中对齐符号：

ggplot(df, aes(col3, col4, color = somethingthatisverylong, shape = col2)) + 
  geom_point() +
  theme(
    legend.position = "top", 
    legend.box = "vertical", 
    legend.box.just = "left", 
    legend.text.align = 0,
    legend.text = element_text(vjust = 0.5), # 文本垂直居中
    legend.key.height = unit(1.2, "line")    # 统一图例键高度
  )

方案2：通过guides设置图例标签垂直对齐 #

针对每个图例，使用guide_legend的label.vjust参数单独控制标签的垂直对齐，确保与符号居中对齐：

ggplot(df, aes(col3, col4, color = somethingthatisverylong, shape = col2)) + 
  geom_point() +
  guides(
    color = guide_legend(label.vjust = 0.5),
    shape = guide_legend(label.vjust = 0.5)
  ) +
  theme(
    legend.position = "top", 
    legend.box = "vertical", 
    legend.box.just = "left", 
    legend.text.align = 0
  )

方案3：对齐图例内部元素 #

使用guide_legend的align参数，让图例的符号和文本在同一基准线上对齐，适合多图例垂直排列的场景：

ggplot(df, aes(col3, col4, color = somethingthatisverylong, shape = col2)) + 
  geom_point() +
  guides(
    color = guide_legend(align = 1),
    shape = guide_legend(align = 1)
  ) +
  theme(
    legend.position = "top", 
    legend.box = "vertical", 
    legend.box.just = "left", 
    legend.text.align = 0
  )

这些方法均基于ggplot的内置布局参数，无需手动调整文本内容，能适配不同长度的标签，比手动添加空格的方式更可靠、灵活。

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