ggplot2：控制面板在 facet_wrap 中的位置

Question

我有一个包含嵌套因子的数据集，类似于 model 嵌套在 manufacturer 中的 mpg 数据集：

mpgsub <- subset(mpg, manufacturer %in% c("audi", "dodge","jeep","subaru"))
mpgsub$model <- as.factor(mpgsub$model)

table(mpgsub$manufacturer, mpgsub$model)

如果我通过manufacterer 和model 使用facet_grid，我会得到空面板：

ggplot(mpgsub, aes(cty, hwy)) + geom_point() + facet_grid(manufacturer~model)

我想制作一个按模型分面的 ggplot，但按制造商将面板排列成行。

我用facet_wrap 尝试过这个。我意识到如果我更改model 因子的级别顺序，我可以控制面板排序，但它仍然只是包装而不考虑manufacturer。

#order models by manufacturer
levels(mpgsub$model)
mpgsub$model <- factor(mpgsub$model, levels=c(
                "a4", "a4 quattro","a6 quattro" ,         #Audi
                "caravan 2wd", "dakota pickup 4wd", 
                "durango 4wd", "ram 1500 pickup 4wd",     #Dodge    
                "grand cherokee 4wd",                     #Jeep
                "forester awd","impreza awd"  ))         #Subaru

ggplot(mpgsub, aes(cty, hwy)) + geom_point()+  facet_wrap(~model, nrow=4, ncol=4) 

理想情况下，我会按制造商将面板排列成行，即使这意味着不同的行长，因为在我的子集中，每个制造商都有不同数量的模型。我在一个图形软件中安排了下面的图片-有什么方法可以让 ggplot2 做到这一点？

我知道我可以使用scales=FREE 参数来控制类似的事情，正如在# Free scales ---- here 下讨论的那样，但它似乎只适用于 x 或 y 轴，我想保留 y 轴对于不同的变量。

Answer 1

也许这足以让您走上正轨？关键贡献是来自ggpubr 包的ggarrange 方法。

library(dplyr)
library(ggplot2)
library(ggpubr)

mpgsub <- subset(mpg, manufacturer %in% c("audi", "dodge","jeep","subaru"))
mpgsub$model <- as.factor(mpgsub$model)

mpgsub1 = mpgsub %>%
  filter(manufacturer == "audi")

mpgsub2 = mpgsub %>%
  filter(manufacturer == "dodge")

plot1 = ggplot(mpgsub1, aes(cty, hwy)) + 
  geom_point() + 
  facet_grid(~model) +
  labs(title = "audi")

plot2 = ggplot(mpgsub2, aes(cty, hwy)) +
  geom_point() + 
  facet_grid(~model) +
  labs(title = "dodge")

plot3 = ggarrange(plot1,plot2, nrow = 2)

print(plot3)