10

在此处输入图像描述我使用 VennDiagram R 包绘制了我的基因列表，图表看起来很好。

我想向维恩图添加内部标签，例如，如果数据由第一组和第二组共享，而不是由第三组和第四组共享，那么标签应该是 1100。我在 Venn{gplots} 包上发现了一个使用showSetLogicLabel=TRUE去做这个。

我正在寻找完全相同的功能，但使用的是 VennDiagram 包。

确切地说，如下图所示，它为图中的每个计数提供二进制代码。我想在 VennDiagram 包中生成二进制代码。

http://rgm2.lab.nig.ac.jp/RGM_results/gplots:venn/venn_016_big.png

4

1 回答 1

8

尝试这个：

library(VennDiagram)
draw.triple.venn(65, 75, 85, 35, 15, 25, 5, c("First", "Second", "Third"))

3组维恩图

或者这个以获得更好的视图，以及 4 个组：

A <- sample(1:1000, 400, replace = FALSE); 
B <- sample(1:1000, 600, replace = FALSE);
C <- sample(1:1000, 350, replace = FALSE);
D <- sample(1:1000, 550, replace = FALSE);
E <- sample(1:1000, 375, replace = FALSE);
venn.diagram(x = list(A = A,D = D,B = B,C = C), filename = "Venn.tiff",
col = "transparent", fill = c("cornflowerblue","green","yellow","darkorchid1"),
alpha = 0.50, label.col = c("orange", "white", "darkorchid4", "white", "white", 
"white",    "white", "white", "darkblue", "white", "white", "white", "white", 
"darkgreen", "white"), cex = 1.5, fontfamily = "serif", fontface = "bold",
cat.col = c("darkblue", "darkgreen", "orange", "darkorchid4"), cat.cex = 1.5,
cat.pos = 0, cat.dist = 0.07, cat.fontfamily = "serif", rotation.degree = 270,
margin = 0.2)

4组维恩图

VennDiagram 文档中有更多示例（此处）

于 2012-10-09T16:11:09.050 回答