尝试使用gplots中的venn()将Venn Diagram输出为png文件时出现奇怪的png图片

Question

我想得到我的维恩图作为一个png文件。下面是它在不输出到文件时的样子：

library(gplots)
> x <- c("X","B")
> v <- c("X","A")
venn(list(x,v))

然后我得到了这个：http://postimage.org/image/d3nbyrp5f/277b50b3/，它看起来不错。

但是这样做：

library(gplots)
> x <- c("X","B")
> v <- c("X","A")
> png(filename="test10.png")
> venn(list(x,v))
> dev.off()

给出这个：http://postimage.org/image/tpdywxxrp/a148b2db/，正如你所看到的，png文件没有显示正确的维恩图，圆是重叠的，所以一个圆在另一个的上面……

有没有办法克服这种奇怪的行为？

编辑：

可以通过加载cairoDevice来解决：

library(cairoDevice)

然后使用：

Cairo_png(filename="test.png")

使用venn()正确输出维恩图。

Answer 1

这可能是透明度的问题，您可以使用不同的工具来创建venn图，或者使用支持透明度的图形设备，我相信Cairo设备允许您创建png文件并遵守透明度。

Answer 2

您必须将bg参数(在png函数中)设置为NA (透明)，默认背景为白色。

library(gplots)
x <- c("X","B")
v <- c("X","A")
png("bgNA.png", bg = NA)
venn(list(x,v))
dev.off()

​

​