VennDiagram - etichette interne

Question

Ho tracciato i miei genelisti utilizzando il pacchetto VennDiagram R e il diagramma sembra corretto.

Volevo aggiungere etichette interne al diagramma di Venn come, se i dati sono condivisi dal primo e dal secondo gruppo ma non dal terzo e dal quarto gruppo, l'etichetta dovrebbe essere 1100. Ho trovato una cosa su Venn {gplots} pacchetto che utilizza lo showSetLogicLabel=TRUE per farlo.

Sto cercando esattamente la stessa funzionalità, ma utilizzando il pacchetto VennDiagram.

Esattamente, come nella figura seguente, che fornisce codici binari per ogni conteggio nel diagramma. Volevo generare quei codici binari nel pacchetto VennDiagram.

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

Answer 1

Prova questo:

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

O questo per una vista più bella, e 4 gruppi:

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) 

Esistono molti altri esempi nel documento VennDiagram (Here)