如何合并ggplot2中提取的不同图例并消除间距问题

要解决图例间间距过大的问题，你可以通过两种方式实现紧凑的纵向堆叠图例：拆分提取的图例gtable或者用空图层构建仅含图例的ggplot，以下是具体实现：

方法1：拆分提取的图例gtable #

先提取每个单独的图例组件，再手动堆叠并控制间距：

library(ggplot2)
library(cowplot)
library(ggnewscale)
library(reshape2)
library(gtable)

# 生成数据
m <- matrix(round(rnorm(200), 2), 10, 10)
colnames(m) <- paste("Col", 1:10)
rownames(m) <- paste("Row", 1:10)
df <- melt(m)
colnames(df) <- c("x", "y", "value")
df2 <- df
colnames(df2) <- c("x", "y", "value2")

# 绘制原图并提取图例（提前缩小图例边距）
ggplot1 <- ggplot(df, aes(x = x, y = y, fill = value)) +
  geom_tile() +
  theme(legend.margin = margin(0, 0, 0, 0))
legend1 <- get_legend(ggplot1)

ggplot2 <- ggplot() +
  geom_tile(data = df2, aes(x = x, y = y, fill = value2)) +
  new_scale_fill() + 
  geom_tile(data = df, aes(x = x, y = y, fill = value)) +
  theme(legend.margin = margin(0, 0, 0, 0))
legend2_full <- get_legend(ggplot2)

# 拆分legend2_full为两个单独图例
legend2_part1 <- gtable_filter(legend2_full, "guide-box-1")
legend2_part2 <- gtable_filter(legend2_full, "guide-box-2")

# 紧凑堆叠三个图例
combined_legend <- plot_grid(
  legend2_part1, legend2_part2, legend1,
  ncol = 1, align = "v",
  rel_heights = c(1, 1, 1), # 保持高度一致
  vjust = 1, hjust = 0,
  margin = margin(0, 0, 0, 0) # 消除额外边距
)

# 组合主图与图例（示例）
main_plots <- plot_grid(
  ggplot1 + theme(legend.position = "none"),
  ggplot2 + theme(legend.position = "none"),
  ncol = 2
)

final_plot <- plot_grid(main_plots, combined_legend, ncol = 2, rel_widths = c(4, 1))
print(final_plot)

方法2：用空图层构建仅含图例的ggplot #

直接创建一个仅包含所需图例的空绘图，通过theme参数精准控制间距，这种方法更简洁：

library(ggplot2)
library(cowplot)
library(ggnewscale)
library(reshape2)

# 生成数据（同上）
m <- matrix(round(rnorm(200), 2), 10, 10)
colnames(m) <- paste("Col", 1:10)
rownames(m) <- paste("Row", 1:10)
df <- melt(m)
colnames(df) <- c("x", "y", "value")
df2 <- df
colnames(df2) <- c("x", "y", "value2")

# 构建仅含三个图例的空绘图
dummy_legend_plot <- ggplot() +
  # 第一个图例：value2
  geom_blank(data = df2, aes(fill = value2)) +
  scale_fill_continuous(name = "value2") +
  new_scale_fill() +
  # 第二个图例：value（来自ggplot2）
  geom_blank(data = df, aes(fill = value)) +
  scale_fill_continuous(name = "value") +
  new_scale_fill() +
  # 第三个图例：value（来自ggplot1）
  geom_blank(data = df, aes(fill = value)) +
  scale_fill_continuous(name = "value") +
  # 调整主题，只保留图例并控制间距
  theme_void() +
  theme(
    legend.position = "right",
    legend.margin = margin(0, 0, 0, 0),
    legend.spacing.y = unit(0.2, "cm") # 自定义图例间垂直间距
  )

# 提取组合后的紧凑图例
combined_legend <- get_legend(dummy_legend_plot)

# 后续组合主图逻辑同方法1

关键说明 #

• 原方法间距过大的原因：get_legend()提取的是包含原图主题边距的完整gtable，即使调整原图theme，提取后的组件仍可能保留冗余空白。
• 两种方法都能避免间距随整体尺寸缩放的问题，其中方法2更易通过legend.spacing.y精准控制间距。

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