Agregue los ejes x e y a todo facet_wrap

A menudo es deseable minimizar la tinta en una parcela. Tengo una trama facetada (facet_wrap) y quisiera eliminar la mayor cantidad de tinta posible y mantener la legibilidad. Lo configuré como me gustaría, excepto que el eje xey no está presente para las facetas (subtramas) a menos que esté en el extremo izquierdo o inferior. Con tanta tinta eliminada, creo que el ojo necesita estas señales y estoy preguntando cómo colocar los ejes xey en todas las parcelas dentro de unfacet_wrap. A continuación se muestra mi código hasta ahora, la salida actual y la salida deseada (las líneas rojas son el complemento deseado):

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

Trama actual

Trama deseada

Respuestas a la pregunta(5)

Su respuesta a la pregunta