2016-03-04 46 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