ggplot两行图例无对齐冗余间距调整技术问询

当把ggplot2的底部图例设置为两行显示时，默认的自动对齐机制会因为图例项长度不一致产生冗余的水平间距，调整legend.spacing.x这类参数往往无法彻底解决这个问题。

原问题代码 #

library(ggplot2)

# 创建模拟数据
set.seed(123)
df <- data.frame(
  Date = rep(seq.Date(from = as.Date("2024-01-01"), by = "days", length.out = 10), 3),
  Value = c(runif(10, 50, 100), runif(10, 60, 110), runif(10, 40, 90)),
  Name = rep(c("A - Strategy - Net", 
               "B - S&P 500 Total Return Index",
               "C - Bloomberg US Aggregate Bond Index"), each = 10)
)

# 绘制图表
ggplot(df, aes(x = Date, y = Value, color = Name)) +
  geom_line(size = 1) +
  theme_minimal() +
  guides(color = guide_legend(nrow = 2)) +  # 设置图例为2行
  theme(
    legend.position = "bottom",            # 将图例移至底部
    legend.spacing.x = unit(0.1, "cm"),     # 缩小水平间距
    legend.margin = margin(-5, 0, 0, 0)     # 缩小图例周围额外空间
  ) + 
  theme(legend.title = element_blank())

解决方案 #

核心问题是默认byrow=FALSE的按列填充逻辑——它会强制每列宽度对齐最长的图例项，进而产生冗余空白。改成byrow=TRUE让图例按行填充，项会根据自身宽度紧凑排列，就能消除多余空间。

修改后的代码：

library(ggplot2)

set.seed(123)
df <- data.frame(
  Date = rep(seq.Date(from = as.Date("2024-01-01"), by = "days", length.out = 10), 3),
  Value = c(runif(10, 50, 100), runif(10, 60, 110), runif(10, 40, 90)),
  Name = rep(c("A - Strategy - Net", 
               "B - S&P 500 Total Return Index",
               "C - Bloomberg US Aggregate Bond Index"), each = 10)
)

ggplot(df, aes(x = Date, y = Value, color = Name)) +
  geom_line(size = 1) +
  theme_minimal() +
  guides(color = guide_legend(nrow = 2, byrow = TRUE)) +  # 关键：启用按行填充
  theme(
    legend.position = "bottom",
    legend.spacing.x = unit(0.3, "cm"),  # 按需调整图例项间的水平间距
    legend.margin = margin(0, 0, 0, 0),
    legend.title = element_blank(),
    legend.box.spacing = unit(0, "cm")  # 消除图例与绘图区域的额外间距
  )

关键参数说明 #

• byrow=TRUE：改变图例项的填充顺序，从按列填充改为按行填充，避免列对齐带来的宽间距。
• legend.spacing.x：控制每个图例项之间的水平距离，可根据视觉效果调整数值。
• legend.box.spacing：移除图例整体和绘图区域之间的额外空白。

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