VennDiagram - 内部标签答案

【问题标题】：VennDiagram - internal labelsVennDiagram - 内部标签
【发布时间】：2012-10-09 15:25:22
【问题描述】：

我使用 VennDiagram R 包绘制了我的基因列表，图表看起来不错。

我想为维恩图添加内部标签，例如，如果数据由第一组和第二组共享，但第三组和第四组不共享，那么标签应该是 1100。我在 Venn{gplots} 包上找到了一个东西它使用showSetLogicLabel=TRUE 来执行此操作。

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

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

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

【问题讨论】：

欢迎来到 Stack Overflow！我已经对您的问题进行了一些修改，希望能更清楚。
@user1732190 你能添加一些示例代码吗？这将有很大帮助
venn.diagram(list(A=a1,B=a2,C=a3,D=a4), filename="all_interactions.tiff", category = c("x5x9","x6x10" ,"x5x6","x9x10"), lwd = c(0.5:4), fill=c("blue","red","green","pink"), cex=2, cat.cex = 2, cat.dist = 0.09, ext.pos = 30, ext.dist = -0.05, ext.length = 0.85, ext.line.lwd = 2, ext.line.lty = "虚线", main="X[i] >10 和 qvalue
当您获得超过 10 个代表 (stackoverflow.com/privileges/new-user) 时，您可以添加图像。在编辑框中，有一些图标可以使这个更容易和更广泛的帮助可用。
我将注释中的示例代码添加到问题本身中。但它不是自包含的（因为未定义 a1、a2、a3 和 a4）。

标签： r venn-diagram

【解决方案1】：

试试这个：

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

或者这个以获得更好的视图，以及 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)

VennDiagram 文档 (Here) 中有更多示例

【讨论】：

这没有回答 OP 的问题——他们想要基于二进制占用代码的标签，而不是占用人数
rgm2.lab.nig.ac.jp/RGM_results/gplots:venn/venn_016_big.png 就像图片中的那样，我想要在我的维恩图中使用类似二进制代码的东西
@user1732190：好吧，看看我能不能做点什么
@user1732190 我尝试使用函数的返回值来提取文本的 x、y 维度。它是成功的。但是，使用 text() 函数手动将新标签放在图表上会失败。此外，从文本标签或位置中找出组并非易事。
@user1732190 最后我认为最好的选择是使用 Venn(gplots)