Adicione o eixo xey a todos os facet_wrap

Muitas vezes, é desejável minimizar a tinta em um gráfico. Eu tenho uma trama facetada (facet_wrap) e gostaria de remover o máximo de tinta possível, mantendo a legibilidade. Eu o configurei como gostaria, exceto que o eixo xey não está presente nas facetas (subparcelas), a menos que seja na extremidade esquerda ou inferior. Com tanta tinta removida, acredito que o olho precisa dessas dicas e estou perguntando como colocar os eixos xey em todas as plotagens dentro de umfacet_wrap. Abaixo está o meu código até agora, a saída atual e a saída desejada (linhas vermelhas são o complemento desejado):

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"))

Gráfico atual

Lote Desejado

questionAnswers(5)

yourAnswerToTheQuestion