我想创建一个3路维恩图和一个更大的圆圈后面代表样本量。
双向文氏图示例，其中较大的圆圈表示样本量：

library("VennDiagram")

grid.newpage()
venn_AB <- draw.triple.venn(area1=count_A, area2=count_B, area3=count_sample, n12 = count_AB, 
                                  n23 =count_B, n13 =count_A, n123=count_AB,
                                  category=c("A",
                                             "B",
                                             "Sample Size"),
                                  col="Purple",fill=c("Red","Blue", "Yellow"), lty = "dashed", print.mode = c('raw', 'percent'))

维恩图（AB）

然而，当我将相同的技术应用于三向维恩图时：

grid.newpage()
venn_ABC = draw.quad.venn(area1=count_A, area2=count_B, area3=count_C, 
                               area4 =count_sample, n12=count_AB, n23=count_BC, n13=count_AC, 
                               n14= count_A,n24=count_B, n34=count_C, n123=count_ABC, 
                               n124=count_AB, n234=count_BC, n134=count_AC, n1234=count_ABC, 
                               category=c("A",
                                          "B",
                                          "C",
                                          "Sample size"),
                               col="Purple",fill=c("Red","Blue","Orange","Yellow"),lty="dashed",print.mode = c('raw', 'percent'))

维恩图

我得到一个四向叶图。
预期文氏图

有没有办法在R中产生预期的结果？