如何将多个调用组合到一个函数中？

Question

我想概括我的函数调用，以便能够将这些调用作为参数传递给第二个函数。

在我来说，我有我作为存储例如列表复式ggplots：

year.plots <- lapply(c("2008","2009","2010","2011","2012","2013","2014"), 
    FUN=function(x){ 
    ggplot(data=french.temp.load[french.temp.load$Year==x,], 
    aes(x=Temperature_K,y=load,color=Month)) + 
    geom_point(alpha=0.5) 
    }) 

现在我想过时他们grid.arrange。是否有可能做这样的事情？

grid.arrange(seq(year.plots),ncol=3) 

感谢

Answer 1

我想这是你想要的。很难确定，因为我经常不使用网格材料，也没有提供可重现的例子。

# Make example data 
p <- qplot(rnorm(30)) 
year.plots <- list(p, p, p, p, p, p, p) 
# This will basically construct the call 
# grid.arrange(p, p, p, p, p, p, p, ncol = 3) 
do.call(grid.arrange, c(year.plots, ncol = 3))