R ggplot2设置任意geom图例宽度为100%绘图宽度的方法

• 目标：将ggplot2生成的图表底部图例宽度设置为与绘图区等宽
• 测试基础代码如下：

library(ggplot2)
library(gapminder)
gapminder2007 <- gapminder[gapminder$year == 2007, ]

ggplot(gapminder2007) +
  geom_col(aes(x = country, y = lifeExp, fill = continent), position = "dodge") +
  theme(legend.position = "bottom",
        legend.background = element_rect(fill = "gray"))

• 目标效果：
  
• 现存问题：已有的基于units()、patchwork的实现方案无法适配geom_col等几何对象，会出现图例拉伸变形的问题，异常效果如下：
  
• 要求：方案需要适配任意geom类型，稳定实现图例100%匹配绘图区宽度，无变形。

之前的方案出现变形的核心原因是直接对整个图例grob做硬拉伸，相当于强制缩放整张图例图片，自然会破坏图例键的原始比例。下面的方案从图例排版逻辑层面适配宽度，不会出现形状变形，兼容所有geom类型：

library(ggplot2)
library(gapminder)
library(grid)
library(gtable)

gapminder2007 <- gapminder[gapminder$year == 2007, ]

# 基础图表配置
p <- ggplot(gapminder2007) +
  geom_col(aes(x = country, y = lifeExp, fill = continent), position = "dodge") +
  theme(
    legend.position = "bottom",
    legend.background = element_rect(fill = "gray"),
    # 清除图例默认边距，保证边缘完全对齐
    legend.box.margin = margin(0, 0, 0, 0),
    legend.margin = margin(2, 0, 2, 0)
  ) +
  # 配置图例排版规则
  guides(
    fill = guide_legend(
      nrow = 1, # 图例单行排列
      byrow = TRUE,
      keywidth = unit(1, "null"), # 核心：用相对单位让图例键自动分配占满宽度
      label.hjust = 0.5
    )
  )

# 调整布局匹配宽度
g <- ggplotGrob(p)
# 定位绘图区、底部图例的布局位置
panel_pos <- which(g$layout$name == "panel")
legend_pos <- which(g$layout$name == "guide-box-bottom")
# 直接将图例宽度设置为和绘图区宽度完全一致
g$widths[g$layout$l[legend_pos]] <- g$widths[g$layout$l[panel_pos]]

# 输出最终图表
grid.newpage()
grid.draw(g)

方案说明 #

• 用unit(1, "null")设置图例键宽度，会让所有图例项自动均匀分配可用宽度，不会出现硬拉伸导致的形状变形
• 直接匹配gtable布局中绘图区的宽度参数，不受坐标轴标签、标题、边距设置的影响，对齐精度100%
• 无额外绘图拼接逻辑，兼容所有geom类型的图例，不管是填充类、点线类、形状类图例都能正常显示

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