ฉันจะได้รับ ggplots ตาราง 'ไม่สมดุล' ได้อย่างไร?

ด้วยgrid.arrangeฉันสามารถจัดเรียงggplotตัวเลขหลายตัวในตารางเพื่อให้ได้รูปหลายแผงโดยใช้สิ่งต่างๆเช่น:

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

สร้าง ggplot2 บางแปลงจากนั้น

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

ฉันจะได้รับเลย์เอาต์ 2 col ที่ 'ไม่สมดุล' กับหนึ่งพล็อตใน col แรกทั้งหมดและสามพล็อตใน col ที่สองได้อย่างไร ฉันเล่นด้วยวิธี 'กริด - กริด' โดยพยายามใช้grid.arrangeเพื่อพล็อตกริดหนึ่ง (เช่นplot5ด้านบน) กับพล็อตอื่น แต่ได้รับ:

เกิดข้อผิดพลาดในการจัดเรียง (... , as.table = as.table, clip = clip, main = main,: input ต้องเป็น grobs!

อัปเดต:

ขอบคุณสำหรับคำแนะนำ. ผมจะมองเข้าไปในและviewports gridในขณะเดียวกันขอบคุณ @DWin layOutฟังก์ชันในแพ็คเกจ 'wq' ทำงานได้ดีมากสำหรับรูปรวบรวมในSweaveเอกสารของฉัน:

อัปเดต 2:

arrangeGrobคำสั่ง (แนะนำโดย @baptiste) ยังทำงานได้ดีและดูเหมือนง่ายมาก - อย่างน้อยมันก็เป็นเรื่องง่ายที่จะแก้ไขความกว้างของทั้งสองคอลัมน์ นอกจากนี้ยังมีประโยชน์ที่จะไม่ต้องใช้แพ็คเกจ `` wq '

เช่นนี่คือรหัสจากไฟล์ Sweave ของฉัน:

<<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}

ซึ่งสร้างผลลัพธ์ต่อไปนี้:

BTW มีใครบอกฉันว่าทำไม '> NA' จึงปรากฏขึ้น?

grid.arrangeดึงโดยตรงบนอุปกรณ์ หากคุณต้องการรวมเข้ากับวัตถุกริดอื่น ๆ ที่คุณต้องการarrangeGrobเช่นเดียวกับใน

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

แก้ไข (07/2015): ด้วย v> 2.0.0 คุณสามารถใช้layout_matrixอาร์กิวเมนต์

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

ฉันพยายามหามันด้วยเส้นตารางและคิดว่าฉันทำมันลงแล้ว แต่ก็ล้มเหลว (แม้ว่าตอนนี้ดูรหัสในฟังก์ชั่นที่ฉันอ้างถึงด้านล่างฉันจะเห็นว่าฉันอยู่ใกล้จริงๆ ... :-)

แพ็คเกจ 'wq' มีlayOutฟังก์ชันที่จะทำเพื่อคุณ:

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))

อีกทางเลือกหนึ่งคือpatchworkแพ็คเกจของ Thomas Lin Pedersen

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

สร้างพล็อตบางส่วน

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))

ตอนนี้จัดแปลง

p1 + (p2 / p3 / p4)

นอกจากนี้ยังมีแพ็คเกจหลายรูปแบบที่ควรค่าแก่การกล่าวถึง ดูคำตอบนี้ด้วย

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

สร้างเมื่อวันที่ 2018-07-16 โดยแพ็คเกจ reprex (v0.2.0.9000)