r - 使用 facet_wrap 时空面的排序/放置

Question

考虑以下分面图，它以 2x2 排列绘制了 3 个分面。空面位于右下角。

library(ggplot2)
ggplot(mtcars) + 
  aes(x = wt, y = mpg) + 
  geom_point() + 
  facet_wrap(~factor(cyl), ncol = 2)

我想改为生成一个在顶行有空面的图，例如如下所示:

有什么方法可以做到这一点而不会弄乱 grobs 或 gtable 吗？

Answer 1

facet_wrap 有一个选项 as.table。来自文档:

If TRUE, the default, the facets are laid out like a table with highest values at the bottom-right. If FALSE, the facets are laid out like a plot with the highest value at the top-right.

如果你设置as.table = F，你会在右上角得到一个空白，但现在面板的顺序很乱；它们会像这样布置

8 (blank)
4    6

要获得所需的顺序，请进行一些预处理。

如果你反转因子水平，你会得到一个布局

4 (blank)
8    6

顺序归结为左下、右下、左上、右上。

根据您希望它们的排列方式，您可能必须手动对构面级别进行排序，除非在您的整个项目中有一些其他逻辑可以放在一起。我在这里使用 forcats::relevel 手动完成了它。

library(dplyr)
library(ggplot2)

mtcars %>%
  mutate(cyl = as.factor(cyl) %>%
           forcats::fct_relevel("6", "8", "4")) %>%
  ggplot(aes(x = wt, y = mpg)) +
  geom_point() +
  facet_wrap(vars(cyl), ncol = 2, as.table = F)

^{由 reprex package 创建于 2019-06-04 (v0.3.0)}