2012-10-09 11 views
8

enter image description here Wykreowałem moje listy adresów za pomocą pakietu VennDiagram R, a diagram wygląda dobrze.VennDiagram - wewnętrzne etykiety

Chciałem dodać wewnętrzne etykiety do diagramu Venna, np. Jeśli dane są udostępniane przez pierwszą i drugą grupę, ale nie przez trzecią i czwartą grupę, to etykieta powinna wynosić 1100. Znalazłem jedną rzecz na Vennie {gplots} pakiet, który używa do tego celu showSetLogicLabel=TRUE.

Szukam dokładnie tej samej funkcjonalności, ale przy użyciu pakietu VennDiagram.

Dokładnie tak, jak na poniższym obrazku, który podaje kody binarne do każdego z nich na diagramie. Chciałem wygenerować te kody binarne w pakiecie VennDiagram.

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

+0

Witamy w Stack Overflow! Poprosiłem o kilka poprawek do ciebie, aby, mam nadzieję, uczynić je bardziej przejrzystymi. –

+0

@ user1732190 Czy mógłbyś dodać przykładowy kod? Pomogłoby to w bardzo dobrym stanie – Ali

+1

venn.diagram (lista (A = a1, B = a2, C = a3, D = a4), nazwa_pliku = "all_interactions.tiff", kategoria = c ("x5x9", "x6x10", "x5x6", "x9x10"), lwd = c (0,5: 4), wypełnienie = c ("niebieski", "czerwony", "zielony", "różowy"), 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 = „przerywana ", główny =" X [i]> 10 i q wartość <= 0,01 ", main.cex = 1, main.col =" szary ") – user1732190

Odpowiedz

7

Spróbuj tego:

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

3 Groups Venn Diagram

albo to o ładniejszy widok, a 4 grupy:

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 Groups Venn Diagram

Istnieje wiele innych przykładów w dokumencie VennDiagram (Here)

+0

to nie odpowiada na pytanie OP - chcieli etykiet na podstawie binarnych kodów obłożenia, a nie liczby osób. –

+0

http://rgm2.lab.nig.ac.jp/RGM_results/gplots:venn/venn_016_big.png obrazek, chcę coś takiego jak tego rodzaju kody binarne w moim diagramie venna – user1732190

+0

@ user1732190: OK, zobaczmy czy mogę coś zrobić czy nie – Ali