奇怪的PNG图片时，试图输出一个维恩图PNG文件使用venn（）从gplots

Question

我想让我的维恩图作为PNG文件。下面是它的外观时，不输出到文件：

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

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

但是这样做：

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") 

以输出维恩图正确地与文氏（）。

Answer 1

这可能是一个透明度问题，您可以为维恩图使用不同的工具，也可以使用支持透明度的图形设备，我相信开罗设备允许您创建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()