2012-10-09 49 views
8

enter image description here我使用VennDiagram R軟件包繪製了我的基因列表,並且圖表看起來很好。VennDiagram - 內部標籤

我想爲維恩圖添加內部標籤,如果數據由第一和第二組共享,但不是第三和第四組共享,那麼標籤應該是1100.我在維恩{gplots}上發現了一件事情,包使用showSetLogicLabel=TRUE來做到這一點。

我正在尋找完全相同的功能,但使用VennDiagram軟件包。

準確地說,就像在下面的圖片中,它給圖中的每個計數提供二進制代碼。 我想在VennDiagram包中生成二進制代碼。

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

+0

歡迎使用堆棧溢出!我已經對你進行了一些編輯提問,希望能讓它更清楚。 –

+0

@ user1732190請您添加一些示例代碼嗎?它將大大幫助 – Ali

+1

venn.diagram(列表(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 and qvalue <= 0.01「, main.cex = 1, main.col =」gray「) – user1732190

回答

7

試試這個:

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

3 Groups Venn Diagram

或者,這對於一個更好的看法,以及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) 

4 Groups Venn Diagram

VennDiagram文檔中有很多示例(Here

+0

這並不回答OP的問題 - 他們想要基於二進制佔位碼的標籤,而不是佔用者的數字 –

+0

http://rgm2.lab.nig.ac.jp/RGM_results/gplots:venn/venn_016_big.png像在圖片,我想在我的維恩圖 – user1732190

+0

@ user1732190這樣的二進制代碼的東西:好吧,讓我們看看我能不能做點什麼 – Ali