r - 图中的分页符(新页面)

Question

将绘图输出转移到 PDF(或其他)文件时，如何进行分页，以便强制在新页面上绘制新绘图？

使用普通的 plot() 或 ggplot() 函数会自动在新页面上绘制新图。然而我正在使用包 VennDiagram 来绘制一些维恩图。问题是，当我尝试制作多个图表时，所有图表都绘制在同一页面上:

library("VennDiagram")
pdf("foo.pdf")
draw.pairwise.venn(area1 = 100, area2 = 100, cross.area = 20, 
    category = c("A", "B"), fill = c("blue", "red"), lty = "blank")

draw.pairwise.venn(area1 = 200, area2 = 200, cross.area = 100,
    category = c("C", "D"), fill = c("blue", "red"), lty = "blank")
dev.off()

这是结果，而我想在不同页面上分开绘图:

Answer 1

您可以使用grid.newpage()强制创建一个新页面

pdf("foo.pdf")
draw.pairwise.venn(area1 = 100, area2 = 100, cross.area = 20, 
    category = c("A", "B"), fill = c("blue", "red"), lty = "blank")
grid::grid.newpage()
draw.pairwise.venn(area1 = 200, area2 = 200, cross.area = 100,
    category = c("C", "D"), fill = c("blue", "red"), lty = "blank", add=FALSE)
dev.off()

本质上，VennDiagram 使用网格图形来处理绘图方面。因此，我们只需使用grid.newpage()强制创建一个新图表。