VennDiagram没有生成比例图

Question

我使用VennDiagram编写了一个简单的代码，

venn.diagram(list("All Patents" = 1:140188, "Influential Patents" = 1:43271, "Valuable Patents" = 23314:90029), 
         col = 'transparent', fill = c("yellow", "orange", "green"), alpha = c(0.5, 0.5, 0.5), 
         cex = 1, cat.fontface = 4, cat.pos = 1, cat.cex = 0.75, cat.dist = -0.03,
         cat.fontfamily = 'serif', scaled = TRUE, filename = "Patent_Venn_Diagram.emf");

但是，我生成的图表不成比例。有人可以建议我如何获得一个缩放的情节。

Answer 1

如果您愿意切换到另一个软件包，在使用我的eulerr（我是其作者）后，这是一个解决方案，稍微编辑了您的输入。

library(eulerr)

mod <- c("All Patents" = 50159, "Influential Patents&All Patents" = 23313,
         "Valuable Patents&All Patents" = 46758,
         "All Patents&Influential Patents&Valuable Patents" = 19958)

fit <- euler(mod)

plot(fit)