r - 维恩图(4套)带R : problem with percentages

Question

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

下面是一个示例维恩图及其代码来说明问题。所以我的问题是:是否有某种方法可以显示与数据中观察总量相关的百分比。例如，在下图中，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)

Answer 1

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

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

然后，默认情况下，A/B/C/D 之外的观察值也会有一个百分比。这为您提供了您正在寻找的百分比: