20231005_Eulerr按实际比例绘制韦恩图

按实际比例绘制的韦恩图的优势：

• 更准确的视觉呈现：按实际比例绘制的韦恩图可以更准确地表示集合的大小和交集的大小。这样，观察者可以通过图形直观地理解各集合之间的关系，比如哪个集合更大，哪个交集更重要等。
• 更好的数据比较：在多个集合的情况下，按比例的韦恩图可以帮助我们清晰地看出数据之间的差异，比如各集合的元素数量差异、各集合交集的数量差异等。
• 更有效的信息传递：在数据可视化中，视觉效果是至关重要的。按实际比例绘制的韦恩图，可以更有效地将信息传递给观众，增强数据的解读和理解。

# 以管理员的身份运行Rstudio
#R 4.3.1
#Rtools 4.3
#Biocmanager 3.17 
library(devtools)
devtools::install_github("jolars/eulerr")
library(eulerr)

s3 <- fruits[, 1:3] #宽数据
>head(s3)
banana apple orange
1  FALSE FALSE  FALSE
2  FALSE FALSE  FALSE
3   TRUE  TRUE  FALSE
4   TRUE FALSE  FALSE
5  FALSE FALSE  FALSE
6   TRUE  TRUE  FALSE
plot(euler(s3, shape = "ellipse"), quantities = TRUE) #绘制比例韦恩图
plot(euler(s3, shape = "ellipse"), quantities = TRUE,   
     fill = c('#95c2e7','#f8a6ac','#f7b496')   #自定义填充颜色
     ) #绘制比例韦恩图

library(devtools)
devtools::install_github("jolars/eulerr")
library(eulerr)

s3 <- fruits[, 1:3] #宽数据
>head(s3)
banana apple orange
1  FALSE FALSE  FALSE
2  FALSE FALSE  FALSE
3   TRUE  TRUE  FALSE
4   TRUE FALSE  FALSE
5  FALSE FALSE  FALSE
6   TRUE  TRUE  FALSE


plot(
  euler(s3, shape = "ellipse"),
  quantities = list(type = c("counts","percent")),
  labels = c("GroupA", "GroupB", "GroupC"),
  edges = list(lty = 2,
               lex = 1.5,
               col = 'black'),
  legend = list(side = "right"),
  fill = c('#95c2e7','#f8a6ac','#f7b496') #自定义填充颜色
)

library(devtools)
devtools::install_github("jolars/eulerr")
library(eulerr)

fit <- euler(c("A" = 4, "B" = 6, "C" = 3, "D" = 2, "E" = 7, "F" = 3,
               "A&B" = 2, "A&F" = 2, "B&C" = 2, "B&D" = 1,
               "B&F" = 2, "C&D" = 1, "D&E" = 1, "E&F" = 1,
               "A&B&F" = 1, "B&C&D" = 1),
             shape = "ellipse")
plot(fit)