我试图使用lapply将函数ggplotGrob（）应用于ggplots列表，但似乎无法从中获取grob对象列表 . 对于这个项目，根据用户输入生成可变数量的图，我需要一种动态方式来生成网格 . 我需要从图中定义grobs，以便在显示之前为所有图表指定相同的宽度 .
例如，我有p1和p2的图 . 如果我手动执行：
gp1 <- ggplotGrob(p1)
gp2 <- ggplotGrob(p2)
grid.arrange(gp1, gp2, ncol=1)
我得到了我的2个情节 .
现在，如果我这样做
gp_list <- list(gp1,gp2)
grid.arrange(gp_list, ncol=1)
我收到一条错误消息
arrangeGrob错误（...，as.table = as.table，clip = clip，main = main，：输入必须是grobs！
我试图使用unlist（）但我得到了同样的错误
grid.arrange(unlist(gp_list), ncol=1)
最后，我想通过lapply Build grobs列表
gp_list <- lapply(plot_list, function(x) ggplotGrob(x))
并能够使用grid.arrange安排所有grobs . 我觉得我忘记了一个简单的步骤，从列表中检索每个对象作为grob . 有人解决了这个吗？
谢谢
> sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: x86_64-apple-darwin13.1.0 (64-bit)
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] grid parallel stats graphics grDevices utils datasets methods base
other attached packages:
[1] pryr_0.1 WGCNA_1.41-1 flashClust_1.01-2 dynamicTreeCut_1.62 gridExtra_0.9.1 ggplot2_1.0.0
[7] gplots_2.14.1 hash_2.2.6 shiny_0.10.1 Biobase_2.24.0 BiocGenerics_0.10.0