r - 尝试使用 gplots 中的 venn() 将维恩图输出到 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

这可能是透明度的问题，您可以使用不同的维恩图工具，或者使用支持透明度的图形设备，我相信 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()