BiocManager::install("eulerr")
library(eulerr)
dat<-c("C1" = 71527,
"C4" = 62672,
"C1&C4" = 54535)
plot(euler(dat),
fills = list(fill=c("#FF8888","#66B3FF"),alpha=0.6),
quantities = list(c(71527,62672,54535),col="black",cex=2),
labels = list(col="black",font=3,cex=2),
edges = list(col="white",alpha=0))
结果图片:
参考:按照实际比例画韦恩图的R包~eulerr - 腾讯云开发者社区-腾讯云 (tencent.com)
颜色代码: