I have to create a bunch of graphs with a lot of data points. So far, I\'ve been doing this by plotting all of them into one pdf-file:
pdf(\"tes
You can
png package to read those back in andgrid.arrangelibrary(png)
library(grid)
library(gridExtra)
thePlots <- lapply (2:length(names(mtcars)), function(i) {
png("testgraph.png")
plot(mtcars[,1], mtcars[,i])
dev.off()
rasterGrob(readPNG("testgraph.png", native = FALSE),
interpolate = FALSE)
})
pdf("testgraph.pdf")
do.call(grid.arrange, c(thePlots, ncol = 3))
dev.off()