如何为cowplot构建的ggplot网格添加x轴与y轴标签

我来给你分享两种实用的方法，帮你给用cowplot拼出来的网格图添加统一的x轴和y轴标签：

方法1：使用draw_label()快速添加标签 #

这种方法简单直接，先把你的网格图组合好，再用ggdraw()包裹后添加轴标签，通过调整位置参数来对齐：

library(ggplot2)
library(cowplot)

# 生成你的子图
ggg1 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() + theme(axis.title.x=element_blank(), axis.title.y=element_blank())
ggg2 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() + theme(axis.title.x=element_blank(), axis.title.y=element_blank())
ggg3 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() + theme(axis.title.x=element_blank(), axis.title.y=element_blank())

# 先组合成基础网格图
combined_plot <- plot_grid(
  plot_grid(ggg1, ggg2, labels=c("", ""), ncol = 1), 
  ggg3, 
  ncol = 2 # 补充ncol参数让网格布局生效
)

# 添加全局轴标签
final_plot <- ggdraw(combined_plot) +
  # x轴标签：放在底部居中，调整y值控制距离
  draw_label("车辆油耗 (mpg)", x = 0.5, y = 0.02, size = 12, fontface = "bold") +
  # y轴标签：放在左侧垂直显示，调整x值控制距离
  draw_label("发动机类型 (0=V型, 1=直列)", x = 0.02, y = 0.5, angle = 90, size = 12, fontface = "bold")

# 查看最终图
final_plot

这里的x和y参数是相对坐标（0到1），你可以根据自己的图调整数值，让标签位置更美观；fontface和size可以控制标签的样式。

方法2：用空ggplot拼接轴标签（贴合ggplot主题） #

如果希望轴标签的样式和子图的主题完全统一，可以创建仅包含轴标签的空图，再和你的网格图拼接：

library(ggplot2)
library(cowplot)

# 生成子图（和之前一致）
ggg1 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() + theme(axis.title.x=element_blank(), axis.title.y=element_blank())
ggg2 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() + theme(axis.title.x=element_blank(), axis.title.y=element_blank())
ggg3 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() + theme(axis.title.x=element_blank(), axis.title.y=element_blank())

# 组合基础网格图
combined_plot <- plot_grid(
  plot_grid(ggg1, ggg2, labels=c("", ""), ncol = 1), 
  ggg3, 
  ncol = 2
)

# 创建仅含x轴标签的空图
x_label_plot <- ggplot() + 
  geom_blank() + 
  labs(x = "车辆油耗 (mpg)") +
  theme(
    axis.text = element_blank(),
    axis.ticks = element_blank(),
    axis.line = element_blank(),
    panel.background = element_blank(),
    # 可以继承子图的主题样式
    axis.title.x = theme_get()$axis.title.x
  )

# 创建仅含y轴标签的空图
y_label_plot <- ggplot() + 
  geom_blank() + 
  labs(y = "发动机类型 (0=V型, 1=直列)") +
  theme(
    axis.text = element_blank(),
    axis.ticks = element_blank(),
    axis.line = element_blank(),
    panel.background = element_blank(),
    axis.title.y = theme_get()$axis.title.y
  )

# 拼接布局：先放y标签+网格图，再在下方放x标签
final_plot <- plot_grid(
  y_label_plot, combined_plot, 
  ncol = 2, rel_widths = c(0.08, 0.92) # 调整y标签的宽度占比
) %>%
  plot_grid(x_label_plot, nrow = 2, rel_heights = c(0.92, 0.08)) # 调整x标签的高度占比

final_plot

这种方法的优势是轴标签会自动继承你设置的ggplot主题样式，不需要手动调整字体、颜色等，整体风格更统一。

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