Estoy tratando de organizar las parcelas de una manera lista para la publicación con el uso decowplot paquete.
Solo quiero que los paneles tengan el mismo tamaño y estén etiquetados.

Expample reproducible

library(ggplot2)
library(cowplot)

gg1 <- ggplot(mtcars)+
        geom_point(aes(x=mpg,y=hp))+
        theme_bw()+
        theme(aspect.ratio=1)

gg2 <- ggplot(mtcars)+
        geom_point(aes(x=mpg,y=hp,fill=cyl))+
        facet_wrap(~cyl,ncol=2)+
        theme_bw()+
        theme(aspect.ratio=1,
              legend.position='none')

output <- plot_grid(gg1,gg2, labels = c('A','B'),label_size = 20)
print(output)

El código produce esta trama.

Como puede ver, ni los ejes horizontales coinciden, ni los bordes superiores de los paneles.

El argumentoalign decowplot No funciona con parcelas facetadas.

¿Algunas ideas?