VennDiagram::add.title VennDiagram::adjust.venn VennDiagram::decide.special.case VennDiagram::draw.001 VennDiagram::draw.010 VennDiagram::draw.011A VennDiagram::draw.011O VennDiagram::draw.012AA VennDiagram::draw.021AA VennDiagram::draw.022AAAO VennDiagram::draw.022AAOO VennDiagram::draw.023 VennDiagram::draw.032 VennDiagram::draw.033 VennDiagram::draw.100 VennDiagram::draw.110 VennDiagram::draw.111A VennDiagram::draw.112AA VennDiagram::draw.120 VennDiagram::draw.121AO VennDiagram::draw.122AAOO VennDiagram::draw.130
VennDiagram::draw.pairwise.venn VennDiagram::draw.quad.venn VennDiagram::draw.quintuple.venn VennDiagram::draw.single.venn VennDiagram::draw.sp.case VennDiagram::draw.triple.venn
VennDiagram::ell2poly VennDiagram::ellipse VennDiagram::find.cat.pos VennDiagram::find.dist VennDiagram::find.intersect VennDiagram::flip.venn VennDiagram::rotate VennDiagram::rotate.sp VennDiagram::rotate.venn.degrees VennDiagram::venn.diagram
library(VennDiagram)
grid.newpage()
## A simple single-set diagram
venn.plot <- draw.single.venn(100, "First")
grid.newpage()
## A more complicated diagram
venn.plot <- draw.single.venn(area = 365,
category = "All\nDays",
lwd = 5,
lty = "blank",
cex = 3,
label.col = "orange",
cat.cex = 4,
cat.pos = 180,
cat.dist = -0.20,
cat.col = "white",
fill = "red",
alpha = 0.15
)
grid.newpage()
## A simple two-set diagram
venn.plot <- draw.pairwise.venn(area1 = 100,
area2 = 70,
cross.area = 30,
category = c("First", "Second"))
grid.newpage()
## Same diagram as above, but without scaling
venn.plot <- draw.pairwise.venn(area1 = 100,
area2 = 70,
cross.area = 30,
category = c("First", "Second"),
scaled = FALSE)
grid.newpage()
## A more complicated diagram Demonstrating external area labels
venn.plot <- draw.pairwise.venn(area1 = 100,
area2 = 70,
cross.area = 68,
category = c("First", "Second"),
fill = c("blue", "red"),
lty = "blank",
cex = 2,
cat.cex = 2,
cat.pos = c(285, 105),
cat.dist = 0.09,
cat.just = list(c(-1, -1), c(1, 1)),
ext.pos = 30,
ext.dist = -0.05,
ext.length = 0.85,
ext.line.lwd = 2,
ext.line.lty = "dashed"
)
grid.newpage()
## Demonstrating an Euler diagram
venn.plot <- draw.pairwise.venn(area1 = 100,
area2 = 70,
cross.area = 0,
category = c("First", "Second"),
cat.pos = c(0, 180),
euler.d = TRUE,
sep.dist = 0.03,
rotation.degree = 45
)
grid.newpage()
venn.plot <- draw.triple.venn(area1 = 4,
area2 = 3,
area3 = 4,
n12 = 2,
n23 = 2,
n13 = 2,
n123 = 1,
category = c('A', 'B', 'C'),
fill = c('red', 'blue', 'green'),
cat.col = c('red', 'blue', 'green'),
cex = c(1/2,2/2,3/2,4/2,5/2,6/2,7/2),
cat.cex = c(1,2,3),
euler = TRUE,
scaled = FALSE
)
grid.newpage()