area1 = 100,
area2 = 70,
cross.area = 30,
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.draw(venn.plot);
/# Three-set Venn diagram
grid.newpage();
venn.plot <- draw.triple.venn(
area1 = 72,
area2 = 86,
area3 = 50,
n12 = 44,
n13 = 27,
n23 = 38,
n123 = 18,
category = c("First", "Second", "Third"),
fill = c("orange", "red", "green"),
lty = "dashed",
cex = 2,
cat.cex = 2,
cat.col = c("orange", "red", "green")
);
/# Four-set Venn diagram
grid.newpage();
venn.plot <- draw.quad.venn(
area1 = 72,
area2 = 86,
area3 = 50,
area4 = 52,
n12 = 44,
n13 = 27,
n14 = 32,
n23 = 38,
n24 = 32,
n34 = 20,
n123 = 18,
n124 = 17,
n134 = 11,
n234 = 13,
n1234 = 6,
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")
);
/# Five-set Venn diagram
grid.newpage();
venn.plot <- draw.quintuple.venn(
area1 = 301,
area2 = 321,
area3 = 311,
area4 = 321,
area5 = 301,
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/jisuanjixue/article-48795-2.html
是专门坐数码的一条街
在忙吗
老巴可比你富哦
何须炫富