ggplot2图例置于底部时无法缩小图例标签间距问题

问题原因 #

ggplot2将图例置于底部（横向布局）时，图例项的总宽度由标签自身宽度加上legend.text的默认内边距（尤其是右侧边距）共同决定。当标签长度达到20-25字符时，每个图例项的宽度会显著增加，导致每行能容纳的项数骤减，视觉上呈现出“间距变大”的效果。

而legend.spacing.x仅控制图例项之间的额外空白，当该值调至极小后就无法再缩小——真正限制间距进一步缩小的是每个图例项自身的宽度和内边距，而非这个额外间距参数。

解决方法 #

以下是几种实用的调整方案，可根据需求组合使用：

1. 减小图例文本的内边距 #

默认的legend.text带有右侧内边距，长标签场景下这个边距会显得冗余。通过element_text(margin)参数缩小或移除该内边距：

data %>% 
  ggplot(aes(x = x, y = y, fill = longlab)) +
  geom_area() +
  theme(
    legend.position = "bottom",
    # 缩小图例文本右侧内边距，数值可按需调整
    legend.text = element_text(margin = margin(r = 3))
  )

2. 固定图例项的宽度 #

使用guide_legend()强制统一图例符号（key）和标签的宽度，避免长标签挤占过多空间，同时可指定每行显示的项数：

data %>% 
  ggplot(aes(x = x, y = y, fill = longlab)) +
  geom_area() +
  theme(legend.position = "bottom") +
  guides(
    fill = guide_legend(
      keywidth = unit(1, "cm"),  # 固定图例符号宽度
      label.width = unit(7, "cm"),  # 固定标签宽度，超出自动换行
      nrow = 2  # 强制分为2行显示，可根据总项数调整
    )
  )

3. 组合缩小额外间距与内边距 #

同时调整legend.spacing.x和文本内边距，实现类似极短标签图例的紧凑效果：

data %>% 
  ggplot(aes(x = x, y = y, fill = longlab)) +
  geom_area() +
  theme(
    legend.position = "bottom",
    legend.spacing.x = unit(0.1, "cm"),  # 最小化项间额外间距
    legend.text = element_text(margin = margin(r = 2, l = 2))  # 缩小文本左右内边距
  )

内容的提问来源于stack exchange，提问作者r-newbie