Можно ли создать пропорциональную тройную диаграмму Венна?

Question

Я пытаюсь создать пропорциональную диаграмму Венна с тремя группами. Я искал в Интернете и попробовал с 3 различными пакетами: Venndiagram, venneuler а также eulerr, Тем не менее, ни один из них не создает правильной пропорциональной диаграммы. Может кто-нибудь помочь, как это сделать?

Я пробовал с Venndiagram пакет:

library(Venndiagram)
draw.triple.venn(58, 44, 37, 44, 27, 37, 27, c("A", "B", "C"), euler.d = TRUE, scaled = TRUE)

Хотя scaled = TRUEэто дало мне следующую диаграмму:

Когда используешь venneuler пакет:

library(venneuler)
v <- venneuler(c(A = 4, B = 0, C = 0, "A&B" = 10, "A&C" = 17, "B&C" = 0, "A&B&C" = 27))
plot(v)

Казалось, это работает лучше. Однако, как вы можете видеть, есть область B и C за пределами A, хотя это должно быть 0. Может быть, это невозможно с кругами?

Answer 1

Вы правы, это невозможно с кругами. Однако, если вы хотите использовать вместо этого эллипсы, вам может помочь последняя версия eulerr для разработчиков (которая, как мне кажется, является создателем).

devtools::install_github("jolars/eulerr")

v <- eulerr::euler(c(A = 4, B = 0, C = 0,
                     "A&B" = 10, "A&C" = 17, "B&C" = 0, "A&B&C" = 27),
                   shape = "ellipse")
plot(v)

доходность

Который идеально подходит.

      original fitted residuals regionError
A            4      4         0           0
B            0      0         0           0
C            0      0         0           0
A&B         10     10         0           0
A&C         17     17         0           0
B&C          0      0         0           0
A&B&C       27     27         0           0

diagError: 0 
stress:    0