VennDiagram - interne Etiketten

Question

Ich zeichnete meine Genlisten mit dem VennDiagram R-Paket, und das Diagramm sieht gut aus.

Ich wollte interne Labels zum Venn-Diagramm hinzufügen, wenn Daten von der ersten und zweiten Gruppe geteilt werden, aber nicht von der dritten und vierten Gruppe, dann sollte das Label 1100 sein. Ich habe eine Sache auf Venn gefunden {gplots} Paket, das die showSetLogicLabel=TRUE verwendet, um dies zu tun.

Ich suche genau nach der gleichen Funktionalität, aber mit dem VennDiagram-Paket.

Genau, wie in der folgenden Abbildung, die jeder Zählung im Diagramm Binärcodes gibt. Ich wollte diese Binärcodes im VennDiagram-Paket erzeugen.

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

Answer 1

Versuchen Sie folgendes:

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

Oder diese für eine schönere Aussicht und 4 Gruppen:

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) 

Es gibt viele weitere Beispiele im Dokument VennDiagram (Here)