# A simple four-set diagram
venn.plot <- draw.quad.venn(315, 495, 330, 370, 145, 85, 105, 130, 95, 75, 50, 45, 30, 35, 5, c("First", "Second", "Third", "Fourth"));
# A more complicated diagram
venn.plot <- draw.quad.venn(
area1 = 315,
area2 = 495,
area3 = 330,
area4 = 370,
n12 = 145,
n13 = 85,
n14 = 105,
n23 = 130,
n24 = 95,
n34 = 75,
n123 = 50,
n124 = 45,
n134 = 30,
n234 = 35,
n1234 = 5,
category = c("First", "Second", "Third", "Fourth"),
fill = c("orange", "red", "green", "blue"),
lty = "dashed",
cex = 2,
cat.cex = 2,
cat.col = c("orange", "red", "green", "blue")
);
# Writing to file
tiff(filename = "Single-set Venn diagram.tiff", compression = "lzw");
venn.plot <- draw.quad.venn(315, 495, 330, 370, 145, 85, 105, 130, 95, 75, 50, 45, 30, 35, 5, c("First", "Second", "Third", "Fourth"));
grid.draw(venn.plot);
dev.off();Run the code above in your browser using DataLab