使用小平面网格的x轴不是ggplot中的aes？

Question

我想创建一个ggplot facet网格，其中网格的x轴（而不是绘图）是标签，而不是压缩到每个chartlet中。

例：

mtcars %>% 
  group_by(mpg) %>% 
  mutate(cnt = n()) %>% 
  ggplot(aes(x = cyl, y = cnt)) +
  geom_bar(stat = "identity") +
  facet_grid(vs ~ cyl)

看起来像：

我希望网格的水平部分不是每个单独的图表，而是在每个单独的图表上具有3到9。

换句话说，每个条形图应仅是单列条形图。

我怎样才能做到这一点？

Answer 1

为x值使用一个常数，同时仍按cyl进行分面：

library(tidyverse)

mtcars %>% 
  group_by(mpg) %>% 
  mutate(cnt = n()) %>% 
  ggplot(aes(x = 1, y = cnt)) +
  geom_bar(stat = "identity") +
  facet_grid(vs ~ cyl) + 
  theme(axis.text.x = element_blank(),
        axis.ticks.x = element_blank()) + 
  labs(x = "cyl")

Answer 2

像这样？

mtcars %>% 
  group_by(mpg) %>% 
  mutate(cnt = n()) %>% 
  ggplot(aes(x = cyl, y = cnt)) +
  geom_bar(stat = "identity") +
  facet_grid(vs ~ cyl)+
  theme(axis.text.x = element_blank(),axis.ticks = element_blank())

还是这样？

mtcars %>% 
  group_by(mpg) %>% 
  mutate(cnt = n()) %>% 
  ggplot(aes(x = cyl, y = cnt)) +
  geom_bar(stat = "identity") +
  facet_grid(vs ~ cyl, scales="free")+
  theme(axis.text.x = element_blank(),axis.ticks = element_blank())