Aligner à gauche deux bords du graphique (ggplot)

J'utilise ggplot et j'ai deux graphiques que je veux afficher l'un sur l'autre. J'ai utilisé grid.arrangede gridExtra pour les empiler. Le problème est que je veux que les bords gauches des graphiques s'alignent ainsi que les bords droits indépendamment des étiquettes d'axe. (le problème se pose parce que les étiquettes d'un graphique sont courtes tandis que l'autre est longue).

La question:
comment puis-je faire cela? Je ne suis pas marié à grid.arrange mais le ggplot2 est un must.

Ce que j'ai essayé:
j'ai essayé de jouer avec les largeurs et les hauteurs ainsi que ncol et nrow pour créer une grille 2 x 2 et placer les visuels dans les coins opposés, puis jouer avec les largeurs mais je ne pouvais pas obtenir les visuels dans les coins opposés .

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 
grid.arrange(A, B, ncol=1)

Essaye ça,

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

Éditer

Voici une solution plus générale (travaille avec un certain nombre de parcelles) en utilisant une version modifiée de rbind.gtableinclus dansgridExtra

gA <- ggplotGrob(A)
gB <- ggplotGrob(B)
grid::grid.newpage()
grid::grid.draw(rbind(gA, gB))

Je voulais généraliser cela pour n'importe quel nombre de parcelles. Voici une solution étape par étape utilisant l'approche de Baptiste:

plots <- list(A, B, C, D)
grobs <- list()
widths <- list()

collecter les largeurs pour chaque grain de chaque parcelle

for (i in 1:length(plots)){
    grobs[[i]] <- ggplotGrob(plots[[i]])
    widths[[i]] <- grobs[[i]]$widths[2:5]
}

utilisez do.call pour obtenir la largeur maximale

maxwidth <- do.call(grid::unit.pmax, widths)

attribuer la largeur maximale à chaque grob

for (i in 1:length(grobs)){
     grobs[[i]]$widths[2:5] <- as.list(maxwidth)
}

terrain

do.call("grid.arrange", c(grobs, ncol = 1))

Utilisation du package cowplot :

A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 

library(cowplot)
plot_grid(A, B, ncol=1, align="v")

Sur http://rpubs.com/MarkusLoew/13295 se trouve une solution vraiment simple disponible (dernier élément) appliquée à ce problème:

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 
grid.draw(rbind(ggplotGrob(A), ggplotGrob(B), size="first"))

vous pouvez également l'utiliser pour la largeur et la hauteur:

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 
C <- ggplot(CO2, aes(x=conc)) + geom_bar() +coord_flip()
D <- ggplot(CO2, aes(x=uptake)) + geom_bar() +coord_flip() 
grid.draw(cbind(
            rbind(ggplotGrob(A), ggplotGrob(B), size="first"),
            rbind(ggplotGrob(C), ggplotGrob(D), size="first"),
            size='first'))

Le eggpackage enveloppe les objets ggplot dans un 3x3gtable standardisé , permettant l'alignement des panneaux de tracé entre les ggplots arbitraires, y compris ceux à facettes.

library(egg) # devtools::install_github('baptiste/egg')
library(ggplot2)

p1 <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) +
  geom_point() 

p2 <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) +
  geom_point() + facet_wrap( ~ cyl, ncol=2, scales = "free") +
  guides(colour="none") +
  theme()

ggarrange(p1, p2)

Voici une autre solution possible à l'aide meltdu package reshape2, et facet_wrap:

library(ggplot2)
library(reshape2)

dat = CO2[, c(1, 2)]
dat$id = seq(nrow(dat))
mdat = melt(dat, id.vars="id")

head(mdat)
#   id variable value
# 1  1    Plant   Qn1
# 2  2    Plant   Qn1
# 3  3    Plant   Qn1
# 4  4    Plant   Qn1
# 5  5    Plant   Qn1
# 6  6    Plant   Qn1

plot_1 = ggplot(mdat, aes(x=value)) + 
         geom_bar() + 
         coord_flip() +
         facet_wrap(~ variable, nrow=2, scales="free", drop=TRUE)

ggsave(plot=plot_1, filename="plot_1.png", height=4, width=6)

Le package patchwork gère cela par défaut:

library(ggplot2)
library(patchwork)

A <- ggplot(CO2, aes(x = Plant)) + geom_bar() + coord_flip() 
B <- ggplot(CO2, aes(x = Type)) + geom_bar() + coord_flip() 

A / B

^{Créé le 08/12/2019 par le package reprex (v0.3.0)}

Au mieux, c'est un hack:

library(wq)
layOut(list(A, 1, 2:16),  list(B, 2:3, 1:16))

Cela semble vraiment faux.

Je sais que c'est un ancien post, et qu'il a déjà été répondu, mais puis-je suggérer de combiner l'approche de @ baptiste avec purrrpour le rendre plus joli:

library(purrr)
list(A, B) %>% 
  map(ggplotGrob) %>% 
  do.call(gridExtra::gtable_rbind, .) %>% 
  grid::grid.draw()