r - 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)