ggplot2如何设置顶部图例与绘图面板边距对齐且内部居中

问题本质 #

原生ggplot2的顶部图例默认按内容宽度自适应渲染，仅调整legend.justification、legend.margin类边距参数，只能适配固定宽高比的输出场景，一旦画布尺寸变化，就会出现图例与面板边距不对齐、内部元素偏移的问题，无法满足全宽适配需求。

方案1：兼容所有ggplot2版本（依赖cowplot） #

该方案适配任意画布尺寸，不会随输出宽高比变化错位：

• 加载依赖包

library(ggplot2)
library(cowplot)

• 绘制无图例的基础绘图

p_main <- ggplot(mtcars) +
  geom_col(aes(x = cyl, y = mpg, fill = as.factor(am))) +
  theme(
    legend.position = "none",
    plot.background = element_rect(fill = "white", colour = NA)
  )

• 单独生成符合样式要求的图例

p_legend <- ggplot(mtcars) +
  geom_col(aes(x = cyl, y = mpg, fill = as.factor(am))) +
  theme(
    legend.text = element_text(size = 13, vjust = 0.5, hjust = 0.5),
    legend.direction = "horizontal",
    legend.background = element_blank(),
    legend.title = element_blank(),
    legend.key = element_blank(),
    legend.key.width = unit(0.7, "cm"),
    legend.key.height = unit(0.35, "cm"),
    legend.position = "top",
    legend.justification = "center",
    legend.spacing.x = unit(0.5, "cm"),
    legend.box = "horizontal",
    legend.box.just = "center",
    legend.box.background = element_rect(fill = c("#f2f0f2"), colour = NA),
    legend.box.spacing = unit(0.1, "lines"),
    plot.background = element_blank()
  )
legend_grob <- get_legend(p_legend)

• 拼接图例与主图，强制边距对齐

final_plot <- plot_grid(
  legend_grob, p_main,
  ncol = 1,
  rel_heights = c(0.1, 1),
  align = "v"
)
final_plot

调整rel_heights的数值可以修改图例区域的垂直占比，适配不同排版需求。

方案2：无额外依赖（需ggplot2 3.5.0及以上版本） #

3.5.0版本后ggplot2支持图例项使用相对单位，直接设置即可让图例自动拉伸占满面板全宽，核心代码如下：

ggplot(mtcars) +
  geom_col(aes(x = cyl, y = mpg, fill = as.factor(am))) +
  theme(
    legend.text = element_text(size = 13, vjust = 0.5, hjust = 0.5),
    legend.direction = "horizontal",
    legend.background = element_blank(),
    legend.title = element_blank(),
    legend.key = element_blank(),
    legend.key.height = unit(0.35, "cm"),
    legend.position = "top",
    legend.justification = "center",
    legend.spacing.x = unit(0.5, "cm"),
    legend.box.just = "center",
    legend.box.background = element_rect(fill = c("#f2f0f2"), colour = NA),
    legend.box.spacing = unit(0.1, "lines"),
    plot.background = element_rect(fill = "white", colour = NA)
  ) +
  guides(fill = guide_legend(
    keywidth = unit(1, "null")
  ))

关键参数是keywidth = unit(1, "null")，会让所有图例项自动均分占满整个图例容器宽度，实现全宽对齐、内部居中的效果。

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