Question

我有一个很长的列表（＆gt; 100，但是变量），用ggplot（）创建的图表。我想在一个pdf文件中每页打印15个图表，多页打印。我尝试过不同的组合来解决早期的问题，但到目前为止还没有成功。非常感谢帮助，提前谢谢！

我尝试过的事情：

ggsave("filename",scale = 2, height = 8, onefile = TRUE,
    do.call(arrangeGrob, c(plotList, list(nrow=5, ncol=3))))

适用于1页，但随后关闭文件。

pdf("filename")
sapply(plotList, function (x) {print(x)})
dev.off()

无法以完整的方式获得每页打印15个图表的功能

remainder <- length(plotList)%%15
pdf("filename", height = 12)
for (i in seq(from = 1, to = length(plotList) - remainder, by = 15)){
  grid.arrange(plotList[[i]], plotList[[i+1]], plotList[[i+2]], plotList[[i+3]],
               plotList[[i+4]], plotList[[i+5]], plotList[[i+6]], plotList[[i+7]], 
               plotList[[i+8]], plotList[[i+9]], plotList[[i+10]], plotList[[i+11]],
               plotList[[i+12]], plotList[[i+13]], plotList[[i+14]],as.table = FALSE,
               ncol = 3)
}
dev.off()

对剩下的图表变得棘手

在多页pdf中绘制ggplot图表列表，每页有多个图表

0 个答案: