如何在ggplot2的facet_wrap分面图中间添加空白区域？

方法一：用patchwork直接拼接（推荐） #

这种方法无需修改原始数据集，直接将8个独立分面图按3x3布局拼接，中间位置用空白占位，完全保留原方位顺序。

1. 加载依赖包并生成每个方位的子图：

library(ggplot2)
library(patchwork)

# 假设你的原始数据框是df，分组变量为dir（8个方位水平）
plots <- lapply(levels(df$dir), function(direction) {
  ggplot(df[df$dir == direction, ], aes(x, y)) +
    geom_point() + # 替换成你的实际绘图图层
    ggtitle(direction) +
    theme(strip.background = element_blank(), strip.text = element_blank()) # 用标题替代重复的分面标签
})

2. 按3x3布局拼接，中间插入空白面板：

# 按上中下三行拼接，中间行第二个位置用空白占位
final_plot <- (plots[[1]] + plots[[2]] + plots[[3]]) /
              (plots[[4]] + plot_spacer() + plots[[5]]) /
              (plots[[6]] + plots[[7]] + plots[[8]]) +
  plot_layout(guides = "collect") # 统一收集图例（如果有图例的话）

# 查看最终效果
print(final_plot)

方法二：修改数据集配合ggplot2+facet_wrap #

通过给原始数据集添加空数据行，构造包含中间空白的分面因子，再用gtable清空空面板内容，实现自动化布局。

1. 构造包含空白分面的新数据集：

library(ggplot2)
library(grid)

# 原始数据框df，分组变量dir
# 定义3x3布局的因子水平顺序，中间为"empty"占位
layout_levels <- c(levels(df$dir)[1:3],
                   levels(df$dir)[4], "empty", levels(df$dir)[5],
                   levels(df$dir)[6:8])

# 添加空数据行
empty_row <- df[1, ]
empty_row[] <- NA
empty_row$dir <- "empty"
df_with_empty <- rbind(df, empty_row)

# 将dir转换为指定顺序的因子
df_with_empty$dir <- factor(df_with_empty$dir, levels = layout_levels)

2. 绘图并清空空面板内容：

# 绘制基础分面图
p <- ggplot(df_with_empty, aes(x, y)) +
  geom_point() +
  facet_wrap(~dir, nrow = 3, ncol = 3)

# 提取绘图对象并修改中间空白面板
gt <- ggplotGrob(p)
# 定位中间面板和对应的标签条
panel_pos <- which(gt$layout$name == "panel-3-2")
strip_pos <- which(gt$layout$name == "strip-t-3-2")

# 清空中间面板和标签内容
gt$grobs[[panel_pos]] <- zeroGrob()
if (length(strip_pos) > 0) gt$grobs[[strip_pos]] <- zeroGrob()

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

两种方法都能实现中间带空白的正方形分面效果，且无需调整原始方位的顺序，完全自动化处理。

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