R + ggplot:绘制多个页面

我试图写一个函数,绘制一个ggplot facet_wrap图在多个页面。 这只是一个黑客,因为这个function似乎是在ggplot2function待办事项列表。 我做了一些小的计算,以find我需要的页数,我的data.frame的行数, data.frame需要我等。我非常有信心,这一切工作。

 pdf(filename) for (i in seq(num_pages)){ slice = seq(((i-1)*num_rows)+1,(i*num_rows)) slice = slice[!(slice > nrow(df.merged))] df.segment=df.merged[slice,] p <- ggplot(df.segment, aes(y=mean,x=phenotype)) p <- p + geom_bar(stat="identity",fill="white",colour="black") p + facet_wrap("ID",scales="free_y",ncol=n_facets,nrow=n_facets) } dev.off() 

我的问题是,通过在pdf()dev.off()函数之间将它们全部封装在for循环中,for循环似乎并不等待ggplot完成它的工作,非常快速地通过其循环并输出无效的PDF。

如果我设置i = 1 ,启动pdf() ,在for循环中运行上面的代码,然后设置i=2 ,然后运行代码,等等,直到我感到无聊( i=3 ),然后closures设备由此产生的PDF是辉煌的。

有没有一种方法,我可以让循环等待最后一行完成绘图,然后再进入下一个迭代?

我认为问题在于你需要在最后一行(p + …)中使用print()来实际打印到for循环中的设备。 。 。

究竟。 ggplot2书的第39页告诉我们,当你创buildggplot2对象时,你可以用“print()”在屏幕上渲染它,当交互式运行时会自动发生,但是在循环或者函数中,它自己“。