Eu fiz uma perguntaAQUI sobre grade organizar e obteve uma resposta fantástica. Eu quero reduzir o espaço entre os gráficos agora, mas recebo um erro. Primeiro apresento o código que funciona e depois o código de erro (o que tentei). Não consigo encontrargrid.arrange e sempre assumiu que vem degridExtra mas posso estar incorreto.

então 2 partes:

Como posso reduzir o espaço entre os gráficos com a disposição da grade?Onde posso encontrar documentação sobregrid.arrange (Baptiste, eu sei que você mantém gridExtra, então, por favor, corrija meu pensamento ou uso do pacote se eu não estiver usando da maneira que foi planejada.)

Bom espaço ruim no código

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +
    coord_flip() + ylab("")
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 


 gA <- ggplot_gtable(ggplot_build(A))
 gB <- ggplot_gtable(ggplot_build(B))
 maxWidth = grid::unit.pmax(gA$widths[2:3], gB$widths[2:3])
 gA$widths[2:3] <- as.list(maxWidth)
 gB$widths[2:3] <- as.list(maxWidth)
 grid.arrange(gA, gB, ncol=1)

Código ruim (minha tentativa)

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +
    coord_flip() + ylab("") + theme(plot.margin= unit(1, "cm"))
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 


 gA <- ggplot_gtable(ggplot_build(A))
 gB <- ggplot_gtable(ggplot_build(B))
 maxWidth = grid::unit.pmax(gA$widths[2:3], gB$widths[2:3])
 gA$widths[2:3] <- as.list(maxWidth)
 gB$widths[2:3] <- as.list(maxWidth)
 grid.arrange(gA, gB, ncol=1)

O erro:

Error in `[.unit`(theme$plot.margin, 2) : 
  Index out of bounds (unit subsetting)