Wie kann ich ein "unausgeglichenes" Gitter von ggplots erhalten?

Mit grid.arrangekann ich mehrere ggplotFiguren in einem Raster anordnen , um eine Figur mit mehreren Feldern zu erhalten, indem ich Folgendes verwende:

library(ggplot2)
library(grid)
library(gridExtra)

Generieren Sie dann einige ggplot2-Diagramme

plot5 <- grid.arrange(plot4, plot1, heights=c(3/4, 1/4), ncol=1, nrow=2)

Wie kann ich ein "unausgeglichenes" 2-Spalten-Layout mit einem Diagramm in der gesamten ersten Spalte und drei Diagrammen in der zweiten Spalte erhalten? Ich spielte mit einem "Grid-of-Grids" -Ansatz, indem ich versuchte, grid.arrangeein Gitter (z. B. plot5oben) gegen ein anderes Diagramm zu zeichnen, erhielt jedoch Folgendes:

Fehler in arrangGrob (..., as.table = as.table, clip = clip, main = main ,: Eingabe muss grobs sein!

Aktualisieren:

Danke für den Hinweis. Ich werde in viewportsund schauen grid. In der Zwischenzeit hat die layOutFunktion im 'wq'-Paket dank @DWin für die Kompilierungsfigur in meinem SweaveDokument sehr gut funktioniert :

Update 2:

Der arrangeGrobBefehl (wie von @baptiste vorgeschlagen) funktioniert ebenfalls gut und scheint sehr intuitiv zu sein - zumindest war es einfach, die Breite der beiden Spalten zu ändern. Es hat auch den Vorteil, dass das `wq'-Paket nicht benötigt wird.

zB Hier ist der Code aus meiner Sweave-Datei:

<<label=fig5plot, echo=F, results=hide>>=
plot5<-grid.arrange(plot4, arrangeGrob(plot1, plot2, plot3, ncol=1), 
                    ncol=2, widths=c(1,1.2))
@
\begin{figure}[]
    \begin{center}
<<label=fig5,fig=TRUE,echo=T, width=10,height=12>>=
<<fig5plot>>
@
\end{center}
\caption{Combined plots using the `arrangeGrob' command.}
\label{fig:five}
\end{figure}

welches die folgende Ausgabe erzeugt:

Übrigens, sagt mir jemand, warum die '> NA' erscheint?

grid.arrangezeichnet direkt auf das Gerät; Wenn Sie es mit anderen Rasterobjekten kombinieren möchten, die Sie benötigen arrangeGrob, wie in

 p = rectGrob()
 grid.arrange(p, arrangeGrob(p,p,p, heights=c(3/4, 1/4, 1/4), ncol=1),
              ncol=2)

Bearbeiten (07/2015): Mit v> 2.0.0 können Sie das layout_matrixArgument verwenden,

 grid.arrange(p,p,p,p, layout_matrix = cbind(c(1,1,1), c(2,3,4)))

Ich habe versucht, es mit einem Raster herauszufinden, und dachte, ich hätte es nicht geschafft, aber es ist fehlgeschlagen (obwohl ich jetzt den Code in der unten zitierten Funktion betrachte, kann ich sehen, dass ich wirklich nah dran war ... :-)

Das 'wq'-Paket hat eine layOut Funktion, die es für Sie :

p1 <- qplot(mpg, wt, data=mtcars)
layOut(list(p1, 1:3, 1),   # takes three rows and the first column
        list(p1, 1, 2),    # next three are on separate rows
         list(p1, 2,2), 
          list(p1, 3,2))

Eine weitere Alternative ist das patchworkPaket von Thomas Lin Pedersen.

# install.packages("devtools")
# devtools::install_github("thomasp85/patchwork")
library(patchwork)

Generieren Sie einige Diagramme.

p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp)) + facet_grid(rows = vars(gear))
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))
p3 <- ggplot(mtcars) + geom_smooth(aes(disp, qsec))
p4 <- ggplot(mtcars) + geom_bar(aes(carb))

Ordnen Sie nun die Grundstücke an.

p1 + (p2 / p3 / p4)

Es gibt auch ein Multipanelfigure-Paket , das es wert ist, erwähnt zu werden. Siehe auch diese Antwort .

library(ggplot2)
theme_set(theme_bw())

q1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
q2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))
q3 <- ggplot(mtcars) + geom_smooth(aes(disp, qsec))
q4 <- ggplot(mtcars) + geom_bar(aes(carb))

library(magrittr)
library(multipanelfigure)

figure1 <- multi_panel_figure(columns = 2, rows = 3, panel_label_type = "upper-roman")

figure1 %<>%
  fill_panel(q1, column = 1, row = 1:3) %<>%
  fill_panel(q2, column = 2, row = 1) %<>%
  fill_panel(q3, column = 2, row = 2) %<>%
  fill_panel(q4, column = 2, row = 3)
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'
figure1

Erstellt am 2018-07-16 vom reprex-Paket (v0.2.0.9000).