如何使用facet_grid或facet_wrap保持条的均匀厚度并切换条位置？

我想用水平条形图显示数据并通过分组变量对其进行分面。因为我想要一个带有分面的水平图，所以我将使用geom_barh来自ggstance包裹。我有一个数据集，其中我的观察结果被分为几种不同的类型和计数。像这样的事情：

library(tidyverse)

data <- tibble(observations = c(1:17), 
           type = c("a", "a", "a", "a", 
                    "b", "b", "b", "b", "b", "b", 
                    "c", "c", "c", "c", "c", "c", "c"),
           n = c(30:46))

这是我的问题。当我使用facet_wrap，我的条形有不同的宽度：

library(ggstance)    

ggplot(data, aes(x = n, y = reorder(observations, n))) +
 geom_barh(stat = "identity") +
 facet_wrap(~ type, ncol = 1, scales = "free_y")

但是当我使用facet_grid，我无法将条带移至顶部，因为没有strip.position争论：

ggplot(data, aes(x = n, y = reorder(observations, n))) +
 geom_barh(stat = "identity") +
 facet_grid(type ~ . , scales = "free_y", space = "free_y")

这只是 ggplot 的怪癖之一还是有办法操纵它？

我不认为 ggplot2 是用于此目的的，但与许多其他情况一样，如果您愿意接受 grob （而不是 ggplot2 对象）作为最终结果，则可以破解解决方案。

这里的基本思想是facet_wrap()允许条带处于任何位置（上/左/右/下），同时fact_grid()允许面板的高度/宽度不同。如果我们将每个选项的 ggplot2 结果转换为 grob 对象，我们可以将选项 2 的面板高度应用到选项 1。具体方法如下：

Step 1。基于两者创建 ggplot2 对象facet_wrap() & facet_grid()。将它们转换为 grob 对象。 （注意：我没有安装 ggstance 包，但是通常的geom_col() + coord_flip()为了说明这里的概念，应该类似......）

p1 <- ggplot(data, aes(y = n, x = reorder(observations, n))) +
  geom_col() +
  facet_wrap(~ type, ncol = 1, scales = "free_y") +
  coord_flip()
g1 <- ggplotGrob(p1)

p2 <- ggplot(data,
       aes(y = n, x = reorder(observations, n))) +
  geom_col() +
  facet_grid(type ~ . , scales = "free_y", space = "free_y") +
  coord_flip()
g2 <- ggplotGrob(p2)

Step 2。获取 g1 和 g2 布局中面板行的位置：

g1.panel.rows <- g1$layout$t[grep("panel", g1$layout$name)] #7 / 12 / 17 in this case
g2.panel.rows <- g2$layout$t[grep("panel", g2$layout$name)] #6 / 8 / 10 in this case

# optional: view the layout & visually check that the above are correct
gtable::gtable_show_layout(g1)
gtable::gtable_show_layout(g2)

# also optional (but recommended): check the current height associated with each panel;
# note that g1 has equal height for each panel, while g2 does not    
> g1$heights[g1.panel.rows]
[1] 1null 1null 1null
> g2$heights[g2.panel.rows]
[1] 4.2null 6.2null 7.2null

Step 3。将 g2 的面板高度应用于 g1 的面板并查看结果。

g1$heights[g1.panel.rows] <- g2$heights[g2.panel.rows]
grid::grid.draw(g1)