[問題敘述]: 先謝謝上週h大回覆關於如何畫圖的第2個x軸。之後我試著把code作延伸，改成給數據庫 裡的27個病人 (SUBJID) 每個人畫一個圖，並且在同一個頁面排成3 x 9 (ncol=3, nrow=9)的多圖。目前我是把ggplot2的程式用for loop給每個病人生成一個plot object ，然後以他們的SUBJID 為字根將plot object命名，例如plot.017_306, plot.017_313, plot.023_302。 我Google了幾個網頁及stackoverflow, 大部分多圖排列是用類似以下的方法: ridExtra::grid.arrange(plot.017_306, plot.017_313, plot.023_302, ncol=3, nrow=1) 不過，因為plot objects 的數量多，我不想一個個地列出來。很有可能其他要繪圖的數 據有更多的病人。 我接著用以下程式把所有 plot objects 放進一個list: # Add all plot objects to a list pattern.plot.objects <- "plot.\\d{3}_\\d{3}" plot.list <- list(ls(pattern = pattern.plot.objects)) 再想辦法用這個list產生多圖 : ggpubr::ggarrange(plotlist = plot.list, ncol=3, nrow=1) # In as_grob.default(plot) : # Cannot convert object of class character into a grob. cowplot::plot_grid(plotlist = plot.list, ncol=3, nrow=1) # Warning message: # In as_grob.default(plot) : # Cannot convert object of class character into a grob. gridExtra::grid.arrange(grobs= plot.list, ncol=3, nrow=1) # Error in gList(...) : only 'grobs' allowed in "gList" do.call(what = "grid.arrange", args = c(plot.list, ncol=3)) # Error in gList(...) : only 'grobs' allowed in "gList" 以上每個code都產生error, 多圖也沒產生。我再用error message也是沒找到有用的除錯 程式。 不過，我不想用的方法 gridExtra::grid.arrange(plot.017_306, plot.017_313, plot.023_302, ncol=3, nrow=1) 倒是有產生多圖: https://hackmd.io/_uploads/H1s90rHD2.png 另一個問題是，我也需要把legend放進圖區裡面，目前是放在圖區外上方，legend內容量 大的圖y軸會被擠壓。不知道要如何將所有 圖y軸的長度變為等長? [程式範例]: 為了簡化例子，我的程式只提供了3個病人的數據。程式貼在 Arrange multiple ggplot2 plots on one page 這個部分， 網址為 https://hackmd.io/@Chang/adverse-events-gantt-chart 已經會ggplot2 多圖的大大，先謝謝了。 --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.182.204.157 (澳大利亞) ※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1686640976.A.A58.html