ggplot2如何在Y轴标签较长时将图例水平居中置于绘图顶部

问题核心 #

ggplot2默认图例的对齐基准为绘图面板（仅数据展示区域），而非包含坐标轴标签、边距在内的整个绘图区域，原生theme参数没有直接切换对齐基准的选项。另外此前尝试调整guides(fill = ...)未生效，是因为示例代码中将Species映射到了color而非fill，对应参数需要修改为guides(color = ...)，但该参数也无法解决对齐基准的问题。

解决方案 #

方案1：使用cowplot包拼接实现（最简单稳定） #

该方案通过拆分主图和图例再重新拼接的方式，直接让图例相对于整个画布宽度居中，适配任意长度的Y轴标签：

library(magrittr)
library(dplyr)
library(ggplot2)
library(cowplot)

# 生成测试数据
iris_new <- iris
iris_new %<>% 
  mutate(Sepal.Width = paste0(Sepal.Width, 
                              paste0(sample(letters, size = 100, replace = TRUE), 
                                     collapse = "")))

# 绘制不带图例的主图
plt_main <- ggplot(iris_new, aes(Sepal.Length, Sepal.Width, color = Species)) + 
  geom_point() + 
  theme(legend.position = "none")

# 提取图例grob
plt_legend <- ggplot(iris_new, aes(Sepal.Length, Sepal.Width, color = Species)) + 
  geom_point() + 
  theme(legend.position = "top", legend.direction = "horizontal")
legend <- get_legend(plt_legend)

# 拼接绘图，rel_heights可根据需要调整图例和主图的高度占比
plot_grid(legend, plt_main, ncol = 1, rel_heights = c(0.1, 0.9))

方案2：原生gtable调整（无需额外安装扩展包） #

如果不想引入第三方包，可以直接修改绘图grob的布局属性，让图例横跨整个绘图宽度：

library(grid)
library(gtable)

# 原始绘图对象
plt0 <- ggplot(iris_new, aes(Sepal.Length, Sepal.Width, color = Species)) + 
  geom_point() + theme(legend.position = "top", legend.direction = "horizontal")

# 转换为gtable对象
plt_grob <- ggplotGrob(plt0)

# 定位图例位置
legend_idx <- which(plt_grob$layout$name == "guide-box")
# 调整图例占满整个绘图的横向宽度
plt_grob$layout[legend_idx, c("l", "r")] <- c(1, ncol(plt_grob))
# 设置图例相对于所在区域居中
plt_grob$grobs[[legend_idx]]$vp$x <- unit(0.5, "npc")
plt_grob$grobs[[legend_idx]]$vp$justification <- "center"

# 输出绘图
grid.newpage()
grid.draw(plt_grob)

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