與venneuler 3集venn圖

這是我的代碼創建一個3套venn圖與R包venneuler，插入兩行數據在每個圓圈和十字路口（代表上下調節基因）。我與你分享，因爲我花了一段時間才找到這個解決方案。與venneuler 3集venn圖

library(venneuler) 
MyVenn <- venneuler(c(A=2,B=2,C=2,"A&B"=0.8,"A&C"=0.7,"B&C"=0.8,"A&B&C"=0)) 
MyVenn$labels <- c("","","") 
MyVenn$diameters<-c(0.4,0.4,0.4) 
plot(MyVenn, col="grey80", border = "black") 
      text(0.35,0.6,"181\n161", cex = 1.5) #A 
      text(0.65,0.6,"27\n14", cex = 1.5) #B 
      text(0.4997455,0.325,"0\n0", cex = 1.5) #C 
      text(0.5,0.6,"0\n0", cex = 1.5) #AB, 
      text(0.59,0.45,"0\n0", cex = 1.5) #BC 
      text(0.4,0.45,"0\n0", cex = 1.5) #AC 
      text(0.5,0.5,"0\n0", cex = 1.5) #ABC

，這是它的樣子（它被保存爲500×500）：

我不知道怎麼雖然在圈子之外添加標籤，建議，修改，改進，歡迎

來源

2017-02-10 user3691288

爲什麼不用'text'添加標籤？ –

只需手動添加它們像之前，與text()：

text(MyVenn$centers[1, 1] + 0.2, MyVenn$centers[1, 2] + 0.2, "B", cex = 2) 
text(MyVenn$centers[2, 1] + 0.2, MyVenn$centers[2, 2] - 0.2, "C", cex = 2) 
text(MyVenn$centers[3, 1] - 0.2, MyVenn$centers[3, 2] + 0.2, "A", cex = 2)

Imgur

來源

2017-02-21 12:25:33

與venneuler 3集venn圖

回答

相關問題