将两个边距添加到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)