如何按集群分组重排ggplot facet_wrap的子图列顺序？

这问题我之前也碰到过，facet_wrap默认的排序逻辑确实容易和我们想要的布局冲突，尤其是当需要按分组（cluster）来列对齐的时候。这里有个简单的解决思路：手动指定facet的顺序，让它先按cluster分组，再在每个cluster内按ID排序，这样就能实现每列对应一个cluster的布局。

问题分析 #

你的数据里每个cluster对应3个ID（cluster1对应ID1-3，cluster2对应ID4-6…），但默认的cluster*ID组合是按ID的数值从小到大排序的，所以facet会先排ID1、ID4、ID7…，这就导致列的顺序完全不符合需求。我们需要强制facet_wrap按「cluster优先，同cluster内ID排序」的逻辑来排列子图。

解决步骤 #

1. 创建自定义有序facet标签

我们先给数据添加一个包含cluster和ID的组合标签，然后把这个标签转换成有序因子，强制指定我们想要的排序顺序：

# 给数据添加cluster与ID的组合标签
df$facet_label <- paste(df$cluster, df$ID, sep = "_")

# 生成目标排序顺序：每个cluster对应3个ID，按cluster从1到6，同cluster内ID从小到大
facet_order <- unlist(lapply(1:6, function(cl) {
  # 计算每个cluster对应的ID范围（cluster1:1-3，cluster2:4-6...）
  ids_in_cluster <- (3*(cl-1)+1):(3*cl)
  paste(cl, ids_in_cluster, sep = "_")
}))

# 将标签转换为有序因子，锁定顺序
df$facet_label <- factor(df$facet_label, levels = facet_order)

2. 用新标签绘图

现在用这个有序标签做facet_wrap，指定nrow=3、ncol=6，就能实现你要的布局：

library(ggplot2)

ggplot(df, aes(date, val)) + 
  geom_bar(stat = "identity") + 
  facet_wrap(~facet_label, nrow = 3, ncol = 6) + 
  theme_bw()

可选：优化facet标签显示

如果觉得facet标签里的cluster前缀多余，可以用labeller参数自定义标签，只显示ID：

ggplot(df, aes(date, val)) + 
  geom_bar(stat = "identity") + 
  facet_wrap(~facet_label, nrow = 3, ncol = 6,
             labeller = labeller(facet_label = function(x) gsub(".*_", "", x))) + 
  theme_bw()

这样出来的图就完全符合你的需求：第1列是cluster1的ID1、ID2、ID3（从上到下），第2列是cluster2的ID4、ID5、ID6，直到第6列的cluster6的ID16、17、18。

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