VennDiagram-内部标签

我用VennDiagram R软件包绘制了我的基因表，图看起来很好

我想在Venn图中添加内部标签，比如，如果数据由第一组和第二组共享，但不由第三组和第四组共享，那么标签应该是1100。我在Venn{gplots}包中发现了一件事，它使用

showsetlogicallabel=TRUE

来实现这一点

我正在搜索完全相同的功能，但使用的是VennDiagram包

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

试试这个：

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)

---

欢迎使用堆栈溢出！我对您的问题做了一些编辑，希望能让问题更清楚。@user1732190您能添加一些示例代码吗？这将大大有助于图（列表（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（“蓝色”，“红色”，“绿色”，“粉色”），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次重复（），您可以添加图像。在编辑框中，有一些图标可以使此帮助更简单、更广泛。我将注释中的示例代码添加到问题本身中。它不是自包含的（因为未定义
a1
、
a2
、
a3
和
a4
）但这并不能回答OP的问题——他们想要基于二进制占用代码的标签，而不是像图中那样的占用人数，我想要在我的venn中使用类似于二进制代码的东西diagram@user1732190：好的，让我们看看我能不能做点什么not@user1732190我尝试使用函数的返回值来提取x，y文本的维度。这是成功的。但是使用text（）函数手动将新标签放在图表上失败。另外，从文本标签或位置中找出组也不是一件小事。@user1732190最后，我认为最好的选择是使用Venn（gplots）