The function modified
multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL,
labs=list(), labpos=list(c(0.5,0.03), c(0.03,0.5))) {
require(grid)
# Make a list from the ... arguments and plotlist
plots <- c(list(...), plotlist)