2016-03-04 59 views
3

我已经使用文氏图编写一个简单的码,文氏图未产生比例图表

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"); 

enter image description here

然而,我生成图形不成比例。有人可以建议我如何得到一个缩放阴谋。

+0

也许你应该放弃 “专利”,那么它给比例维恩。 – zx8754

+0

@ zx8754但我需要与该变量成比例。有任何想法吗? – Sumit

+0

你尝试过其他套餐,可能是venneuler吗? http://stackoverflow.com/questions/8713994/venn-diagram-proportional-and-color-shading-with-semi-transparency – zx8754

回答

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) 

Imgur