ggplot2：嵌套因子数据集分面面板布局调整及空面板问题解决

嘿，这个问题我熟！你遇到的空面板是因为facet_grid的交叉分面逻辑导致的，咱们一步步来解决它～

首先先明确问题根源：facet_grid(manufacturer~model)会生成所有品牌和车型的交叉组合面板，哪怕某个品牌根本没有对应车型的数据（比如奥迪不会有道奇的车型），这些无数据的组合就会变成空面板。而我们需要的是只展示有数据的车型面板，同时让布局更合理。

方法1：用facet_wrap替代facet_grid（最推荐） #

facet_wrap会自动跳过无数据的面板，还能通过nrow/ncol灵活控制面板的排列行数/列数。另外我们可以先给车型按品牌排序，让同品牌的车型面板挨在一起，布局更规整：

library(ggplot2)

# 先重现你的数据集
mpgsub <- subset(mpg, manufacturer %in% c("audi", "dodge","jeep","subaru"))
mpgsub$model <- as.factor(mpgsub$model)

# 按品牌对车型重新排序，让同品牌的车型排在一起
mpgsub$model <- reorder(mpgsub$model, mpgsub$manufacturer)

# 用facet_wrap分面，指定行数为2（你可以根据需求调整成合适的数字）
ggplot(mpgsub, aes(cty, hwy)) +
  geom_point() +
  facet_wrap(~model, nrow = 2)

这样出来的图表就没有空面板，同品牌的车型也会集中排列，看起来清爽多了。

方法2：给面板标签加上品牌（增强可读性） #

如果想让每个面板的标签更清晰，一眼看出车型属于哪个品牌，可以先创建一个带品牌的车型标签列：

# 创建包含品牌的车型标签
mpgsub$model_with_brand <- paste(mpgsub$manufacturer, mpgsub$model, sep = ": ")
# 同样按品牌排序标签，保证同品牌的面板相邻
mpgsub$model_with_brand <- reorder(mpgsub$model_with_brand, mpgsub$manufacturer)

# 分面展示
ggplot(mpgsub, aes(cty, hwy)) +
  geom_point() +
  facet_wrap(~model_with_brand, nrow = 2)

现在每个面板的标签都会显示「品牌: 车型」，再也不用猜这个车型属于哪个品牌啦～

补充：为什么facet_grid会有空面板？ #

简单来说，facet_grid是做交叉分面，它会把行变量和列变量的所有可能组合都列出来，不管有没有数据。而你的数据里车型是嵌套在品牌里的（每个车型只属于一个品牌），所以大部分交叉组合都是空的，就出现了那些没用的空面板。而facet_wrap是把所有有数据的面板像“包裹”一样排列，完全不会生成空面板，更适合这种嵌套结构的分面需求。

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