如何在R中用cowplot对齐ggdraw空图与ggplot2生成的绘图？

问题背景 #

处理大型物种数据集时，需要为不同物种生成标准化绘图集：

• 有完整数据的物种：用ggplot2生成3幅图，通过cowplot的+拼接时对齐正常。
• 无数据的物种：空ggplot图本身拼接对齐正常，但用ggdraw()添加"No Data"标签后，与其他ggplot图拼接出现对齐偏差。

解决方案 #

方法1：直接在空ggplot内添加标签（推荐） #

保持空图为ggplot对象，通过annotate()添加文本标签，和其他绘图的属性完全一致，拼接时自动对齐。

# 加载包与数据
library(ggplot2)
library(cowplot)

samples <- data.frame(
  GROUP = c("dog","dog","dog","cat","cat","cat"),
  VAR1 = c(1,3,5,1,3,5),
  VAR2   = c(2,4,6,2,4,6),
  VAR3   = c(2,4,6,NA,NA,NA),
  VAR4   = c(1,2,3,1,2,3),
  VAR5 = c(3,2,1,NA,NA,NA)
)

# 生成有数据的绘图（以cat为例）
plot1.2 <- ggplot(samples[samples$GROUP=="cat",],aes(x=VAR1,y=VAR2))+
  geom_point()+
  theme_bw()
plot3.2 <- ggplot(samples[samples$GROUP=="cat",],aes(x=VAR4,y=VAR3))+
  geom_point()+
  theme_bw()

# 生成带"No Data"标签的空图（保持ggplot类型）
plot2.2_fixed <- ggplot(samples[samples$GROUP=="cat",],aes(x=VAR3,y=VAR5))+
  geom_point()+
  theme_bw()+
  # 添加居中的无数据标签
  annotate("text", x = 0, y = 0, label = "No Data", color = "#C0A0A0", size = 10)+
  # 可选：隐藏空轴元素，让空图更简洁
  theme(axis.text = element_blank(),
        axis.title = element_blank(),
        axis.ticks = element_blank(),
        panel.grid = element_blank())

# 拼接测试，对齐正常
group.plot.fixed <- plot1.2 + plot2.2_fixed + plot3.2
group.plot.fixed

方法2：统一ggdraw对象与ggplot的边距 #

ggdraw()默认边距与ggplot的theme_bw()不一致，手动设置相同的边距值即可对齐。

# 生成原始空图
plot2.2 <- ggplot(samples[samples$GROUP=="cat",],aes(x=VAR3,y=VAR5))+
  geom_point()+
  theme_bw()

# 添加标签并调整边距（匹配theme_bw默认边距：5.5pt）
plot2.2b_fixed <- ggdraw(plot2.2) +
  draw_label("No Data", color = "#C0A0A0", size = 10) +
  theme(plot.margin = margin(5.5, 5.5, 5.5, 5.5, "pt"))

# 拼接测试
group.plot.fixed2 <- plot1.2 + plot2.2b_fixed + plot3.2
group.plot.fixed2

方法3：用plot_grid强制对齐 #

使用cowplot的plot_grid()函数，通过align参数强制水平/垂直对齐，兼容不同类型的绘图对象。

# 生成带标签的ggdraw空图
plot2.2b <- ggdraw(plot2.2)+
  draw_label("No Data", color = "#C0A0A0", size = 10)

# 用plot_grid指定对齐方式
group.plot.fixed3 <- plot_grid(plot1.2, plot2.2b, plot3.2,
                               align = "hv", # 水平+垂直对齐
                               nrow = 1,
                               rel_widths = c(1,1,1)) # 确保宽度一致
group.plot.fixed3

原因说明 #

直接用ggdraw()包裹ggplot后，生成的是ggdraw类对象，而普通ggplot是ggplot类。cowplot的+拼接逻辑对这两类对象的边距、尺寸处理规则不同，导致对齐偏差。上述三种方法分别从统一对象类型、统一边距参数、强制对齐规则三个角度解决问题。

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