CHENYUAN

Euler diagrams are Venn diagrams without the requirement that all set interactions be present (whether they are empty or not). That is, depending on input, eulerr will sometimes produce Venn diagrams but sometimes not.

Prominent R packages that produce euler and/or venn diagrams are: eVenn, VennDiagram, venn, colorfulVennPlot, and venneuler.

Generate data

set.seed(1)
# Generate 3 sets of 200 words
set1 <- paste(rep("word_" , 300) , sample(c(1:1000) , 300 , replace=F) , sep="")
set2 <- paste(rep("word_" , 250) , sample(c(1:1000) , 250 , replace=F) , sep="")
set3 <- paste(rep("word_" , 200) , sample(c(1:1000) , 200 , replace=F) , sep="")
set4 <- paste(rep("word_" , 350) , sample(c(1:1000) , 350 , replace=F) , sep="")

Generate venn diagram with VennDiagram package

Three data sets (draw.triple.venn)

suppressPackageStartupMessages(library(VennDiagram))
 
# # Prepare a palette of 4 colors with R colorbrewer:
library(RColorBrewer)
myCol <- brewer.pal(3, "Pastel2")

# Plotting
venn.diagram(
        x = list(set1, set2, set3),
        category.names = c("A", "B", "C"),
        filename = 'Venn_diagram_three.png',
        output=TRUE,

        # Output features
        imagetype = "png",
        height = 480,
        width = 480,
        resolution = 300,
        compression = "lzw",

        # Circles
        lwd = 2,
        lty = 'blank',
        fill = myCol,

        # Numbers
        cex = .6,
        fontface = "bold",
        fontfamily = "sans",

        # Set names
        cat.cex = 0.6,
        cat.fontface = "bold",
        cat.default.pos = "outer",
        cat.pos = c(-60, 60, 180),
        cat.dist = c(0.055, 0.055, 0.055),
        cat.fontfamily = "sans",
        rotation = 1
)

Four data sets (draw.quad.venn)

venn.diagram(
        x = list(set1, set2, set3, set4),
        category.names = c("A", "B", "C", "D"),
        filename = 'Venn_diagram_four.png',
        output=TRUE,

        # Circles
        lwd = 2,
        #lty = 'blank',
        fill = rainbow(4),

        # Numbers
        cex = .6,
        fontface = "bold",
        fontfamily = "Arial",

        # Set names
        cat.cex = 0.6,
        cat.fontface = "bold",
        cat.default.pos = "outer",
        cat.fontfamily = "Arial"
)

Generate venn diagram with eulerr package

suppressPackageStartupMessages(library(eulerr))

fit <- euler(c(A = length(set1), B = length(set2), C = length(set3), 
               "A&B" = length(intersect(set1, set2)), "A&C" = length(intersect(set1, set3)), "B&C" = length(intersect(set2, set3)),
                "A&B&C" = length(intersect(intersect(set1, set2), set3))))
plot(fit, 
     fills = list(fill = rainbow(3)),
     quantities = list(fontsize = 12), 
     edges = list(lty = 1:3),
     main = "Euler Diagram")