如何去除cowplot::get_legend()提取图例的大量空白区域？

1. 调整图例背景色 #

先在原ggplot图表中通过theme()设置图例的背景色为#F0F8FF，同时统一图例内部符号的背景色，避免出现不协调的白色块：

# install.packages("cowplot")
library(ggplot2)
library(cowplot)

set.seed(10)
mydata <- data.frame(
  X = rnorm(80, 8, 4),
  Y = rnorm(80, 7, 8)
)

# 构建带自定义背景色的图表
p <- ggplot(mydata, aes(x = X, y = Y, colour = Y)) +
  geom_point() +
  theme(
    legend.background = element_rect(fill = "#F0F8FF", colour = NA), # 图例背景色，去除边框
    legend.key = element_rect(fill = "#F0F8FF") # 图例符号的背景色统一
  )

# 提取图例
legend <- cowplot::get_legend(p)

2. 去除空白并保存图例为图片 #

直接使用ggsave()保存提取出的图例对象，它会自动适配图例的实际大小，避免多余空白。如果需要微调尺寸，可以调整width和height参数：

# 保存图例，背景色与图例统一
ggsave(
  filename = "custom_legend.png",
  plot = legend,
  bg = "#F0F8FF",
  width = 2,  # 根据图例实际宽度调整
  height = 4 # 根据图例实际高度调整
)

替代方案：用grid包手动绘制（适合即时预览） #

如果需要在R中预览无空白的图例，可以通过创建匹配图例大小的视口，先绘制背景再绘制图例：

library(grid)

grid.newpage()
# 绘制覆盖整个视口的背景
grid.rect(gp = gpar(fill = "#F0F8FF", col = NA))
# 绘制图例（自动适配视口）
grid.draw(legend)

这样就能得到背景色为#F0F8FF、无多余空白的独立图例图片，可直接用于其他图表的拼接。

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