ggplot facet_wrap绘图：如何在空白分面单独添加表格

我懂你遇到的麻烦了——用facet_wrap(~植物)生成了6个分面，但其中一个因为没有数据是空的，想给这个空白分面加表格，结果表格直接跑到所有分面里去了。下面给你两种实用的解决办法：

方法一：用ggplot2 + gtable精准定位空白分面 #

这种方法能在原有分面图的基础上，只把表格插入到指定的空白分面中：

1. 先绘制基础分面图并保存为对象：

library(ggplot2)
library(gtable)
library(grid)

# 绘制你的基础分面图
p <- ggplot(data = ccdataff, aes(x = 处理, y = mean, color=处理)) +
  theme_bw()+ 
  geom_bar(stat = "identity", position = "dodge", fill="white")+
  facet_wrap(~植物)

2. 创建要添加的表格（替换成你自己的表格数据即可）：

# 示例表格数据，换成你的实际数据
table_data <- data.frame(
  指标 = c("存活率", "株高", "鲜重"),
  均值 = c(85.2, 12.6, 45.8)
)

# 把表格转换成grid可识别的对象
table_grob <- tableGrob(table_data, rows = NULL)

3. 定位空白分面并插入表格：

# 将ggplot对象转为gtable格式
gt <- ggplotGrob(p)

# 找到空白分面对应的面板名称（比如空白分面是第6个，对应panel-6）
panel_names <- gt$layout$name[grepl("panel", gt$layout$name)]
# 定位目标面板的位置索引
target_panel <- which(gt$layout$name == "panel-6")

# 把表格替换掉空白分面的内容
gt$grobs[[target_panel]] <- table_grob

# 绘制最终图形
grid.draw(gt)

方法二：用patchwork包组合图形（更简单直观） #

如果不想折腾底层的gtable，用patchwork可以轻松模拟facet_wrap的布局，把分面图和表格拼在一起：

1. 先绘制只包含有数据的5个分面的图形：

library(ggplot2)
library(patchwork)
library(gridExtra)

# 过滤掉无数据的植物水平，只保留有数据的5个
ccdata_filtered <- ccdataff[!is.na(ccdataff$mean), ]

# 绘制5个分面，设置ncol=3，刚好留出第6个位置
p_facet <- ggplot(data = ccdata_filtered, aes(x = 处理, y = mean, color=处理)) +
  theme_bw()+ 
  geom_bar(stat = "identity", position = "dodge", fill="white")+
  facet_wrap(~植物, ncol=3)

2. 创建表格图形：

# 同样生成表格对象
table_data <- data.frame(
  指标 = c("存活率", "株高", "鲜重"),
  均值 = c(85.2, 12.6, 45.8)
)
p_table <- gridExtra::tableGrob(table_data, rows = NULL)

3. 用patchwork组合布局：

# 组合成2行3列的布局，表格自动填充第6个位置
(p_facet + p_table) + plot_layout(ncol=3)

这样就能完美实现只在原本的空白分面位置显示表格，其他分面完全不受影响啦。

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