将x和y轴添加到所有facet_wrap

通常希望尽量减少绘图中的墨水。我有一个多面情节（facet_wrap）并希望去除尽可能多的墨水但保持可读性。我已经按照我的意愿进行了设置，除了 x 轴和 y 轴不存在于面（子图）中，除非位于最左侧或底部。去除了这么多墨水后，我相信眼睛需要这些提示，并询问如何将 x 轴和 y 轴放在一个facet_wrap。下面是迄今为止我的代码，当前输出和所需的输出（红线是所需的添加）：

library(ggplot); library(grid)

ggplot(mtcars, aes(mpg, hp)) + 
    geom_point() + 
    facet_wrap(~carb) +
    theme(panel.grid = element_blank(),
        panel.background = element_rect(fill = "white", colour = "black"), 
        panel.border = element_rect(fill = NA, colour = "white"), 
        axis.line = element_line(),
        strip.background = element_blank(),
        panel.margin = unit(2, "lines"))

Current Plot

Desired Plot

这应该会大大简化事情：

library('ggthemes')
ggplot(mtcars, aes(mpg, hp)) + geom_point() + facet_wrap(~carb, scales='free') + 
    theme_tufte() + theme(axis.line=element_line()) + 
    scale_x_continuous(limits=c(10,35)) + scale_y_continuous(limits=c(0,400))