Impression du diagramme de Venn après le calcul du chevauchement

Question

J'essaie d'utiliser la fonction calculate.overlap dans le package VennDiagram pour d'abord calculer puis imprimer un diagramme de Venn. J'ai été capable de calculer le chevauchement de mon ensemble de données, mais en cherchant de l'aide pour imprimer le graphique Venn. Quelqu'un peut-il fournir une assistance? J'ai lu la documentation mais je n'ai pas trouvé ça.

> library('VennDiagram') 

# A simple single-set diagram 
cardiome <- letters[1:10] 
superset <- letters[8:24] 
overlap <- calculate.overlap(
x = list(
"Cardiome" = cardiome, 
"SuperSet" = superset 
) 
); 

Answer 1

Un autre exemple simple qui montre comment imprimer un diagramme de Venn en utilisant le package VennDiagram:

library(VennDiagram) 
cardiome <- letters[1:10] 
superset <- letters[8:24] 
overlap <- calculate.overlap(
x <- list("Cardiome"=cardiome, "SuperSet"=superset)) 

venn.plot <- draw.pairwise.venn(
    area1 = length(cardiome), 
    area2 = length(superset), 
    cross.area = length(overlap), 
    category = c("Cardiome", "Superset"), 
    fill = c("blue", "red"), 
    lty = "blank", 
    cex = 2, 
    cat.cex = 2, 
    cat.pos = c(180, 180), 
    cat.dist = 0.05, 
    cat.just = list(c(0, 1), c(1, 1)) 
    ) 
grid.draw(venn.plot) 
savePlot(filename="venndiag", type="png") 

diagrammes de Venn avec étiquettes des éléments à l'intérieur des ensembles:

library(RAM) 
vectors <- list(Cardiome=cardiome, Superset=superset) 
group.venn(vectors=vectors, label=TRUE, 
    fill = c("blue", "red"), 
    cat.pos = c(180, 180), 
    lab.cex=1.1) 

Answer 2

La fonction venn.diagram() le fait. Par exemple dans votre exemple

venn.diagram(x = list(
    "Cardiome" = cardiome, 
    "SuperSet" = superset 
), "plot_venn") 

Il enregistre dans le répertoire de travail. Tapez getwd() pour voir à quoi il est défini.

Voir la

?venn.diagram() 

pour plus d'informations.

Answer 3

?venn.diagram suggère cette

library('VennDiagram') 
venn.plot <- venn.diagram(
    x = list(
    cardiome = letters[1:10], 
    superset = letters[8:24] 
), 
    filename = NULL 
); 
grid.draw(venn.plot);