r - ggplot2 在 Rplots.pdf 中相互覆盖

Question

我刚刚发现如果脚本进行一些绘图，默认情况下会Rscript生成一个Rplots.pdf。唯一的问题是不同ggplot的覆盖自己。默认绘图功能不会发生这种情况。我怎样才能避免这种情况？

Answer 1

首先，一些推荐阅读：

grDevices::pdf()
ggplot2::ggsave()
grDevices::dev.*()
grDevices::Devices

现在，一个有效的例子......

require( ggplot2 )

#  Make some plots
p1 <- qplot(mpg, wt, data=mtcars, colour=cyl)
p2 <- qplot(mpg, wt, data=mtcars, size=cyl)
p3 <- qplot(mpg, wt, data=mtcars, facets=vs ~ am)

# Open device
pdf( "Test.pdf" )

# Output all plots to currently active device
print( p1 )
print( p2 )
print( p3 )

# Close device
dev.off()

显然，您可以在代码中选择将绘图打印为 pdf 的点。