リスト内で保存またはプロットする方法

Question

qplotまたはggplotのエンティティ（オブジェクト、リスト、grobs）の名前付きリストをレンダリングまたは保存する方法はありますが、それらを配列のためのリストまたはベクトルとして渡す。私の問題はggplot2ではなく一般的にリストオブジェクトを抽出することだと思います。

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

# Generate a named list of ggplots 
plotlist <- list() 
for(a in c(1:4)) { 
    for(b in c(1:4)) { 
     plotlist[[paste0("Z",a,b)]] <- 
      qplot(rnorm(40,a,b), 
        geom="histogram", 
        xlab=paste0("Z",a,b)) 
    } 
} 

# Arrange and display them 
# The following two lines work fine, so the plots are in there: 
plotlist[["Z12"]] 
ggsave(plot=plotlist[["Z12"]], filename="deletable.png") 

# The following two lines complain about not being 'grobs' 
grid.arrange(plotlist, widths=c(1,1), ncol=2) 
grid.arrange(unlist(plotlist), widths=c(1,1), ncol=2) 

明示的に名前を付けずにgrobとしてキャストすることはできますか？

Answer 1

lapply(plotlist, ggplot2::ggplotGrob)を使用して、ggplot2 grobsのリストを生成します。このgrobsのリストは、gridExtra::grid.arrangeに渡すことができます。例えば

：

library(ggplot2) 
library(gridExtra) 

plotlist <- list() 

for(a in c(1:4)) { 
    for(b in c(1:4)) { 
     plotlist[[paste0("Z",a,b)]] <- 
      qplot(rnorm(40,a,b), 
        geom="histogram", 
        xlab=paste0("Z",a,b)) 
    } 
} 

grid.arrange(grobs = lapply(plotlist, ggplotGrob), widths = c(1, 1), ncol = 2)