仅删除两个 facet_grid() X 标签中的一个

Question

这是 this question 的变体和 this question我还没有找到解决方案。

以mtcars为例，我想要一个类似下面的情节

ggplot(mtcars, aes(x=cyl,y=mpg)) +
geom_point() +
facet_grid(am ~ gear + carb)

但是，我希望删除与“carb”变量关联的 facet x 标签，同时保留“gear”变量的标签。以下得到我想要的，但将“NA”放在它的位置而不是完全删除它。

ggplot(mtcars, aes(x=cyl,y=mpg)) +
geom_point() +
facet_grid(am ~ gear + carb, labeller = labeller(carb = "")

当然，使用 theme(strip.text.x = element_blank()) 对我也不起作用，因为我想保留“gear”变量的标签。

最终，我想使用两个 x 层进行网格化，但对我来说，第二个 x 层的标签没有任何意义，因此包含在图中会分散注意力。

Answer 1

由于我也不明白的原因，以下似乎有效。该函数仅返回一个等长空字符串向量作为输入。

library(ggplot2)

ggplot(mtcars, aes(x=cyl,y=mpg)) +
  geom_point() +
  facet_grid(am ~ gear + carb, 
             labeller = labeller(carb = function(x) {rep("", length(x))}))

^{由 reprex package 创建于 2021-01-12 (v0.3.0)}