[问题叙述]: 先谢谢上周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/cn.aspx?n=bbs/R_Language/M.1686640976.A.A58.html