Диаграмма Венна из 3 комплектов с венейлером

Question

Это мой код для создания диаграммы Венна из 3 наборов с помощью венейлера пакета R, вставив две строки данных в каждом круге и пересечении (представляющих регулируемые гены вверх и вниз). Я делюсь этим с вами, потому что мне понадобилось время, чтобы найти это решение.

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

И вот как это выглядит (сохраняется как 500x500):

Я не знаю, как добавить ярлыки за пределы кругов, предложения, исправления, улучшения приветствуются

Answer 1

Просто добавьте их вручную, как вы делали раньше, с 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)