VennDiagram 没有生成比例图答案

【问题标题】：VennDiagram is not generating proportional graphVennDiagram 没有生成比例图
【发布时间】：2017-03-11 01:49:14
【问题描述】：

我已经使用 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");

但是，我生成的图表不成比例。有人可以建议我如何获得按比例绘制的情节。

【问题讨论】：

也许你应该放弃“所有专利”，然后它会给出比例维恩。
@zx8754 但我需要与该变量成比例。有什么想法吗？
您是否尝试过其他软件包，也许是 venneuler？ stackoverflow.com/questions/8713994/…
@zx8754 不。我没有尝试其他软件包。鉴于 cmets，我认为 venneuler 包存在一些问题。此外，VennDiagram 包更高级。
帮助页面上的这句话可能对scale = "Enable scaling for two-set and certain three-set Euler diagrams. (euler.d must be true to enable this)"有帮助。我认为您的维恩不属于此类特定图表。我建议在没有“所有专利”的情况下进行绘图，并使用图像编辑软件自己包含缺失的圆圈。

标签： r graphics venn-diagram

【解决方案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)

【讨论】：