Kazu Nozue
/
2018-10-15
# library(limma) library(tidyverse) library(ggforce) set.seed((123)) mydata <- data.frame(A = rbinom(100, 1, 0.8), B = rbinom(100, 1, 0.7), C = rbinom(100, 1, 0.6)) %>% mutate_all(., as.logical) # drawing circle df.venn <- data.frame(x = c(0, 0.866, -0.866), y = c(1, -0.5, -0.5), labels =…