ggplot2: Fija la altura / anchura del eje al combinar trazados [duplicar]

Esta pregunta ya tiene una respuesta aquí:

Alinee a la izquierda dos bordes del gráfico (ggplot) 8 respuestas
library(ggplot2)
library(gridExtra)

df1 <- data.frame(x=c("A1","A2","A3","A4"),something=c(10,18,24,32))
df2 <- data.frame(x=c("C1","C2","C3","C4"),somethingelse=c(10543,182334,242334,32255))


p1 <- ggplot(df1,aes(x,something))+
  geom_bar(stat="identity")
p2 <- ggplot(df2,aes(x,somethingelse))+
  geom_bar(stat="identity")


png("test.png",height=8,width=6,res=120,units="cm")
gridExtra::grid.arrange(p1,p2,heights=grid::unit(c(4,4),"cm"))
dev.off()

Cuando combino manualmente dos o más gráficos como el anterior, ¿cómo puedo arreglar los anchos del eje y para que sean iguales, de modo que mis barras en todos los gráficos (A1-C1, A2-C2, ...) se alineen? ¿Hay alguna forma de calcular el ancho máximo de la etiqueta y y aplicar ese ancho al eje y de todas las parcelas? Y no, las facetas no son algo que quiero en este caso particular.

Respuestas a la pregunta(1)

Su respuesta a la pregunta