Disporre la larghezza del grafico comune con gplplat 2.0.0 sfaccettato e grigliaExtra

Question

Da quando mi sono aggiornato a ggplot2 2.0.0, non riesco ad organizzare i diagrammi in modo propizio utilizzando grigliaExtra. Il problema è che i grafici sfaccettati verranno compressi mentre altri si espanderanno. Le larghezze sono sostanzialmente incasinate. Voglio disporli simile al modo in cui questi singoli appezzamenti sfaccettatura sono: left align two graph edges (ggplot)

ho messo un codice riproducibili

library(grid) # for unit.pmax() 
library(gridExtra) 

plot.iris <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + 
    geom_point() + 
    facet_grid(. ~ Species) + 
    stat_smooth(method = "lm") 

plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + 
    geom_point(size=2.5) 

g.iris <- ggplotGrob(plot.iris) # convert to gtable 
g.mpg <- ggplotGrob(plot.mpg) # convert to gtable 

iris.widths <- g.iris$widths # extract the first three widths, 
mpg.widths <- g.mpg$widths # same for mpg plot 
max.widths <- unit.pmax(iris.widths, mpg.widths) 

g.iris$widths <- max.widths # assign max. widths to iris gtable 
g.mpg$widths <- max.widths # assign max widths to mpg gtable 

grid.arrange(g.iris,g.mpg,ncol=1) 

Come vedrete, il grafico in alto, il primo aspetto è espanso mentre gli altri 2 vengono compressi a destra. Il grafico inferiore non copre tutta la larghezza.

Potrebbe essere che la nuova versione di ggplot2 stia scherzando con le larghezze di gtable?

Qualcuno sa una soluzione?

La ringrazio molto

EDIT: Aggiunto foto di grafico

Sto cercando qualcosa di simile:

Answer 1

Decollo queste due linee e mantenendo il resto, ha funzionato bene

g.iris$widths <- max.widths # assign max. widths to iris gtable 
g.mpg$widths <- max.widths # assign max widths to mpg gtable 

Probabilmente era limitare la larghezza di loro.

Answer 2

Questo è brutto, ma se si è sotto una pressione del tempo questo trucco funzionerà (non generalizzabile e dipende dalle dimensioni della finestra del grafico). In pratica, crea le 2 colonne del grafico in alto con un grafico vuoto sulla destra e indovina alle larghezze.

grid.arrange(
    grid.arrange(plot.iris, ggplot() + theme_minimal(),ncol=2, widths = c(.9, .1)), 
    plot.mpg, 
    ncol=1 
) 

Answer 3

Non sono sicuro che tu stia ancora cercando una soluzione, ma questo è abbastanza generale. Sto usando ggplot 2.1.0 (ora su CRAN). È basato su this solution. Rompendo il problema in due parti. Innanzitutto, mi occupo del lato sinistro dei grafici, assicurandomi che le larghezze per il materiale dell'asse siano le stesse. Questo è già stato fatto da altri, e ci sono soluzioni su SO. Ma non penso che il risultato appaia buono. Preferirei che i pannelli si allinassero anche sul lato destro. Quindi, in secondo luogo, la procedura assicura che le larghezze delle colonne a destra dei pannelli siano le stesse. Lo fa aggiungendo una colonna di larghezza appropriata alla destra di ciascuno dei grafici. (C'è modi forse più ordinato per farlo c'è -. Vedi soluzione @baptiste.)

library(grid) # for pmax 
library(gridExtra) # to arrange the plots 
library(ggplot2) # to construct the plots 
library(gtable) # to add columns to gtables of plots without legends 

mpg$g = "Strip text" 

# Four fairly irregular plots: legends, faceting, strips 
p1 <- ggplot(mpg, aes(displ, 1000*cty)) + 
    geom_point() + 
    facet_grid(. ~ drv) + 
    stat_smooth(method = "lm") 

p2 <- ggplot(mpg, aes(x = hwy, y = cyl, colour = factor(cyl))) + 
    geom_point() + 
    theme(legend.position=c(.8,.6), 
     legend.key.size = unit(.3, "cm")) 

p3 <- ggplot(mpg, aes(displ, cty, colour = factor(drv))) + 
    geom_point() + 
    facet_grid(. ~ drv) 


p4 <- ggplot(mpg, aes(displ, cty, colour = factor(drv))) + 
    geom_point() + 
    facet_grid(g ~ .) 

# Sometimes easier to work with lists, and it generalises nicely 
plots = list(p1, p2, p3, p4) 

# Convert to gtables 
g = lapply(plots, ggplotGrob) 

# Apply the un-exported unit.list function for grid package to each plot 
g.widths = lapply(g, function(x) grid:::unit.list(x$widths)) 


## Part 1: Make sure the widths of left axis materials are the same across the plots 
# Get first three widths from each plot 
g3.widths <- lapply(g.widths, function(x) x[1:3]) 

# Get maximum widths for first three widths across the plots 
g3max.widths <- do.call(unit.pmax, g3.widths) 

# Apply the maximum widths to each plot 
for(i in 1:length(plots)) g[[i]]$widths[1:3] = g3max.widths 

# Draw it 
do.call(grid.arrange, c(g, ncol = 1)) 


## Part 2: Get the right side of the panels aligned 
# Locate the panels 
panels <- lapply(g, function(x) x$layout[grepl("panel", x$layout$name), ]) 

# Get the position of right most panel 
r.panel = lapply(panels, function(x) max(x$r)) # position of right most panel 

# Get the number of columns to the right of the panels 
n.cols = lapply(g.widths, function(x) length(x)) # right most column 

# Get the widths of these columns to the right of the panels 
r.widths <- mapply(function(x,y,z) x[(y+1):z], g.widths, r.panel, n.cols) 

# Get the sum of these widths 
sum.r.widths <- lapply(r.widths, sum) 

# Get the maximum of these widths 
r.width = do.call(unit.pmax, sum.r.widths) 

# Add a column to the right of each gtable of width 
# equal to the difference between the maximum 
# and the width of each gtable's columns to the right of the panel. 
for(i in 1:length(plots)) g[[i]] = gtable_add_cols(g[[i]], r.width - sum.r.widths[[i]], -1) 

# Draw it 
do.call(grid.arrange, c(g, ncol = 1)) 

Answer 4

una possibilità è quella di massaggiare ogni trama in un gtable 3x3, dove la cella centrale avvolge tutta la trama pannelli.

Utilizzando l'esempio @SandyMuspratt

# devtools::install_github("baptiste/egg") 
grid.draw(egg::ggarrange(plots=plots, ncol=1)) 

il vantaggio è che, una volta in questo formato standardizzato, trame possono essere combinati in vari layout molto più facilmente, indipendentemente dal numero di pannelli, legende , assi, strisce, ecc

grid.newpage() 
grid.draw(ggarrange(plots=list(p1, p4, p2, p3), widths = c(2,1), debug=TRUE))