r - 将两个边距添加到 facet_grid 但不是组合

Question

我想同时显示右侧和底部边距，但不是两者的组合。这可能与 facet_grid 吗？

library(ggplot2)

ggplot(mtcars, aes(x = hp, group = vs)) + 
  geom_density() + 
  facet_grid(am ~ vs, switch = "y", margins = TRUE) 

我试图通过手动向 margin 提供因子来修复它。争论，但这无济于事。此外，R 文档对我没有帮助。

当前结果



预期结果

Answer 1

这样的事情对我来说是一个错误，因为我没有看到更大的图片 gt 中的条目如何与最终形式有关:

library(ggplot2)

p<-
ggplot(mtcars, aes(x = hp, group = vs)) + 
    geom_density() + 
    facet_grid(am ~ vs, switch = "y", margins = TRUE)

gt = ggplotGrob(p)

keep <- !grepl("[3br]-3$",gt$layout$name)

gt$layout <- gt$layout[keep,]
gt$grobs  <- gt$grobs[keep]

plot(gt)