如何用ggplot2的facet_wrap调整每行子图数量并重新排序？

问题背景 #

使用ggplot2绘制了4×4布局的多组条形图，需要修改为每行3张子图的布局（共5行3列，最后一行1个图），同时自定义子图的排序顺序。

实现步骤 #

1. 调整子图布局（每行3张） #

在facet_wrap()函数中添加ncol = 3参数，ggplot2会自动根据子图总数计算行数，16个子图会自动分配为5行3列（最后一行仅1个图），完全符合需求。

2. 重新排序子图 #

要自定义子图的排列顺序，需将Genes列转换为因子类型，并通过levels参数指定目标排序：

• 若要手动指定顺序，直接定义基因名称列表传给levels；
• 若要按数据逻辑排序（如按log2FC均值排序），可使用forcats包的fct_reorder()函数自动生成排序。

修改后的完整代码 #

nudge <- 0.1
# 手动定义基因排序（替换为你的目标顺序）
gene_order <- c("GeneA", "GeneB", "GeneC", "GeneD", "GeneE", "GeneF", "GeneG", "GeneH",
                "GeneI", "GeneJ", "GeneK", "GeneL", "GeneM", "GeneN", "GeneO", "GeneP")

df |> 
  mutate(
    sig_label = case_when(
      padj < 0.001 ~ "***",
      padj < 0.01 ~ "**",
      padj <= 0.05 ~ "*",
      padj > 0.05 ~ ""
    ),
    label_position = ifelse(log2FC > 0, log2FC + nudge, log2FC - (nudge+0.07)),
    # 将Genes转为因子并指定排序
    Genes = factor(Genes, levels = gene_order)
    # 若按log2FC均值排序，替换为：
    # Genes = forcats::fct_reorder(Genes, log2FC, .fun = mean)
  ) |> 
  ggplot(aes(x = CancerType, y = log2FC , fill = Genes)) +
  geom_bar(stat = "identity" , width = 0.7, show.legend = TRUE)+ 
  theme_bw() + 
  # 设置每行3张子图
  facet_wrap(~ Genes, ncol = 3)+
  theme(axis.text.x = element_text(size =9, angle = 45, hjust = 1 , colour = "black"),
        panel.border = element_rect(color="black", linewidth = 1.5),
        strip.background = element_rect(
          color="black", fill="lightgray", size=1.5, linetype="solid"),
        strip.text.x = element_text(size = 12, color = "black", face = "bold.italic"),
        axis.text.y = element_text(size = 15,  colour = 'black', face = 'bold')) +
  geom_text(aes(label = sig_label, y = label_position), size= 6)+
  geom_hline(yintercept=0.0, color='black', size=0.8)

关键说明 #

• 手动排序时，gene_order中的基因名称必须与数据中Genes列的取值完全一致；
• 使用fct_reorder()时，需确保已安装forcats包（可通过install.packages("forcats")安装）；
• 若不需要自定义排序，仅保留facet_wrap(~ Genes, ncol = 3)即可实现布局调整。

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