如何调整ggplot图例框高宽，避免小尺寸导出时图例被截断？

关键修改方案 #

• 通过guides()强制设置图例为4列，减少纵向占用空间
• 调整图例边距参数，避免小尺寸保存时被截断
• 配合ggsave()的尺寸参数优化输出效果

修改后的完整代码 #

ggplot(datW, aes(
  y = Proportion,
  x = Year,
  alluvium = group_strata, 
  stratum = metier_name
)) + 
  geom_alluvium(aes(fill = Class)) + 
  geom_stratum(width = 2/5) +
  geom_text(stat = "stratum", aes(label = metier_name), size = 2.8) +   
  theme(
    legend.position = "bottom",
    # 给图例底部预留额外边距，防止裁剪
    legend.box.margin = margin(0, 0, 10, 0),
    # 调整图例内部元素间距
    legend.margin = margin(t = 5, r = 5, b = 5, l = 5)
  ) + 
  scale_x_continuous(labels = datW$Year, breaks = datW$Year) +
  # 设置图例为4列，可按需调整元素尺寸
  guides(fill = guide_legend(
    ncol = 4,
    keywidth = unit(1, "cm"),
    keyheight = unit(0.5, "cm")
  ))

保存图片的优化建议 #

使用ggsave()时明确指定尺寸参数，避免自动压缩导致图例截断：

ggsave(
  "your_plot.png",
  plot = last_plot(),
  width = 10,
  height = 6,
  dpi = 300
)

说明 #

• ncol = 4直接将图例列数从3改为4，降低纵向高度需求
• 调整legend.box.margin和legend.margin可以为图例提供足够的显示空间，解决截断问题
• 自定义keywidth/keyheight可进一步适配不同的输出尺寸

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