#
## Not run:
# library(ggplot2)
# d <- data.frame(a=1:5,b=1:5)
# x <- list(
# ggplot(d, aes(x=a,y=b,col=b)) + geom_line(),
# ggplot(d, aes(x=a,y=b,shape=factor(b))) + geom_point())
# ggplotlist(x, 2)## End(Not run)
#
Run the code above in your browser using DataLab