Venn图（4组）与R：百分比问题

Question

我正在尝试使用四个逻辑变量绘制一个Venn图。我尝试了许多不同的R包，但是每个都遇到了一些问题。到目前为止，我通过使用ggvenn包获得了最佳结果。然而，问题在于它显示基于图表中包括的观察值的交集的百分比，而不是数据中所有观察值的百分比。

下面是一个示例Venn图及其代码，以说明该问题。我的问题是：是否有某种方法可以显示与数据中的总观测量相关的百分比。例如，在下面的图表中，ABCD的交集由45个观测值组成，因此正确的比例应为4.5％（即45/1000），而不是4.7％。

如果有人能帮忙解决这个问题，我会非常感激。

library(ggvenn)

a <- sample(x = c(TRUE, TRUE, FALSE), size = 1000, replace = TRUE)
b <- sample(x = c(TRUE,FALSE, FALSE), size = 1000, replace = TRUE)
c <- sample(x = c(TRUE, FALSE, FALSE, FALSE), size = 1000, replace = TRUE)
d <- sample(x = c(TRUE, TRUE, TRUE, FALSE), size = 1000, replace = TRUE)

df <- tibble(values = c(1:1000), A=a, B=b, C=c, D=d)

ggvenn(df,
  fill_color = c("black", "grey70", "grey80", "grey90"),
  show_percentage = TRUE,
  digits = 1,
  text_size = 2.5)

- HazelJay

Answer 1

解决这个问题的快速方法是使用最新的 {ggvenn} Github 版本：

remove.packages("ggvenn")
devtools::install_github("yanlinlin82/ggvenn")

那么，默认情况下，还会有一定比例的观测值在A/B/C/D之外。这就为您提供了您要寻找的百分比：

- tivd