VennDiagram не создает пропорциональный график

Я написал простой код, используя 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");

введите здесь описание изображения

Однако график, который я генерирую, непропорционален. Может кто-нибудь, пожалуйста, предложите мне, как получить масштабированный сюжет.


r graphics venn-diagram
person Sumit    schedule 04.03.2016    source источник
comment
Может быть, вы должны отказаться от всех патентов, тогда это дает пропорциональную venn.   -  person zx8754    schedule 04.03.2016
comment
@ zx8754 Zx8754 Но мне нужно пропорциональное значение вместе с этой переменной. Любые идеи?   -  person Sumit    schedule 04.03.2016
comment
Вы пробовали другие пакеты, может быть, venneuler? stackoverflow .com/questions/8713994/   -  person zx8754    schedule 04.03.2016
comment
@zx8754 Нет. Другие пакеты не пробовал. Учитывая комментарии, я думаю, что есть проблема с пакетом venneuler. Кроме того, пакет VennDiagram намного более продвинут.   -  person Sumit    schedule 04.03.2016
comment
Это предложение на странице справки может помочь scale = "Enable scaling for two-set and certain three-set Euler diagrams. (euler.d must be true to enable this)". Я думаю, что ваши venn не принадлежат к таким определенным диаграммам. Я рекомендую рисовать без всех патентов и использовать программное обеспечение для редактирования изображений, чтобы самостоятельно добавить недостающий круг.   -  person Roman    schedule 02.05.2016

Ответы (1)


arrow_upward
1
arrow_downward

Если вы хотите переключиться на другой пакет, вот решение, использующее мой 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)

Имгур

person Johan Larsson    schedule 10.03.2017