Установите размер окружностей пропорционально размеру числа уникальных значений с помощью VennDiagram. - PullRequest
Новая
       21

Установите размер окружностей пропорционально размеру числа уникальных значений с помощью VennDiagram.

0 голосов
/ 05 июля 2019

Я использую код ниже, чтобы создать диаграмму Венна с 2 кругами. Я хотел бы знать, возможно ли установить размер кругов, чтобы быть пропорциональным размеру числа уникальных значений с помощью пакета VennDiagram. Конечно, в моем примере размер будет одинаковым, потому что только 1 значение является уникальным в обоих кругах, но я бы хотел узнать, как это делается. 

dc <- c("CACNA1C",  "CACNA1D",  "KCNN4",    "CACNA1F",  "CACNA1D",  "CACNA1C",  "GNRHR",    "CD80",     "CD86",     "ITGA2B"  )
tc <- c("CACNA1C",  "CACNA1D",  "CACNA1C",  "CACNA1D",  "CACNA1F",  "KCNN4",    "APP",      "GNRHR",    "CD86",     "CD80"    )



library(VennDiagram)
Vt <- venn.diagram(
  x = list(
    DC_Dataset=dc,
    TC_Dataset=tc
  ),
  #filename = "1B-double_Venn.tiff",
  main = "Targets",
  main.cex = 3,
  filename = NULL,
  lwd = 4,
  fill = c("cornflowerblue", "green"),
  alpha = 0.75,
  label.col = "black",
  cex = 2,
  fontfamily = "sansserif",
  fontface = "bold",
  cat.col = c("black", "black"),
  cat.cex = 1.5,
  cat.fontfamily = "sansserif",
  cat.fontface = "bold",
  cat.dist = c(0.03, 0.03),
  cat.pos = c(-20, 14)
)

grid.newpage()
grid.draw(Vt)
...