r - 维恩图的问题？

Question

我已经成功地使用了这里给出的食谱。然而，在过去的几天里，这似乎不起作用。我的 sessionInfo()如下所示:

R version 2.15.2 (2012-10-26)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] grid      stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] VennDiagram_1.5.1

loaded via a namespace (and not attached):
[1] tools_2.15.2 

我尝试了以下方法，但没有产生任何结果:

 require(VennDiagram)

 venn.diagram(list(B = 1:1800, A = 1571:2020),fill = c("red", "green"), alpha = c(0.5, 0.5), cex = 2,cat.fontface = 4,lty =2, fontfamily =3, filename = "trial2.emf")

但没有产生任何结果。

我做错了什么吗？

Answer 1

一种解决方法是使用 png()或 pdf()保存情节。我们首先确认我们可以使用 grid.draw() 在屏幕上绘制绘图。 :

library(VennDiagram)
temp <- venn.diagram(list(B = 1:1800, A = 1571:2020),
    fill = c("red", "green"), alpha = c(0.5, 0.5), cex = 2,cat.fontface = 4,
    lty =2, fontfamily =3, filename = NULL)
grid.draw(temp)

确认后，我们需要做的就是重复 grid.draw()之间 pdf()和 dev.off()

library(grDevices)

pdf(file="venn.pdf")
    grid.draw(temp)
dev.off()

正如他们的帮助文件中所述， pdf()和 png()对控制图​​像大小、改进对图像质量的控制等内容有争论。