R语言 | 使用 eulerr 绘制 Venn plot

eulerr在线版：http://eulerr.co/
R package地址：https://cran.r-project.org/web/packages/eulerr/index.html

eulerr包优势：

1. 圆形面积与数值成正比
2. 绘图参数调节便利

安装

install.packages('eulerr')

使用

官方教程：https://cran.r-project.org/web/packages/eulerr/vignettes/gallery.html

样图

library(eulerr)
Venn <- function(lst.A, lst.B, lst.C){
    A = lst.A %>% length()
    B = lst.B %>% length()
    C = lst.C %>% length()
    AB = intersect(lst.A, lst.B) %>% length()
    AC = intersect(lst.A, lst.C) %>% length() 
    BC = intersect(lst.B, lst.C) %>% length()
    ABC = intersect(lst.A, lst.B) %>% intersect(., lst.C) %>% length()
    euler(c(
        "A" = A - AB - AC + ABC,
        "B" = B - AB - BC + ABC,
        "C" = C - AC - BC + ABC,
        "A&B" = AB - ABC,
        "A&C" = AC - ABC,
        "B&C" = BC - ABC,
        "A&B&C" = ABC
    )) %>% return()
} 



vd <- Venn(
    lst.A <- d[method=='DI']$bin,
    lst.B <- dt[method=='IS']$bin,
    lst.C <- dt[method=='TopDom']$bin
)

plot(vd,
     labels = list(
         labels = c('DI', 'IS', 'TopDom'),
         col = "gray20", font = 2
    ), 
    edges = list(col="gray60", lex=1),
    fills = list(fill = c("#297CA0", "#BBBBBB", "#E9EA77"), alpha = 0.6),
    quantities = list(cex=.8, col='gray20')
    )