Документация для функции draw.quintuple.Venn
гласит: «Нарисуйте диаграмму Венна с пятью наборами». У вас есть четыре области / категории / заливки / и т.д.
Итак, используйте draw.quad.venn
вместо:
venn.plot <- draw.quad.venn(
area1 = 1068,
area2 = 1092,
area3 = 1077,
area4 = 1083,
n12 = 1027,
n13 = 1023,
n14 = 1027,
n23 = 1042,
n24 = 1048,
n34 = 1045,
n123 = 1000,
n124 = 1005,
n134 = 1004,
n234 = 1023,
n1234 = 989,
category = c("A", "B", "C", "D"),
fill = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3"),
cat.col = c("dodgerblue", "goldenrod1", "darkorange1", "seagreen3"),
cat.cex = 2,
margin = 0.05,
ind = TRUE
)