Thank you! Mara,
I created following code for 3 ways, it works:
grid.newpage()
venn.plot <- draw.triple.venn(area1 = 3.7,
area2 = 1.4,
area3 = 16.1,
n12 = 1.4,
n23 = 0,
n13 = 2.3,
n123 = 0,
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 = F
)
But, I am trying to create a chart for 4 ways, what function I should use? draw.quadruple.venn ?
it doesn't work.
grid.newpage()
venn.plot <- draw.triple.venn(area1 = 100,
area2 = 3.7,
area3 = 1.4,
area4 = 16.1
n12 = 3.7,
n13 = 1.4
n14 = 16.1
n23 = 1.4,
n24 = 2.3
n123 = 1.4,
n1234 =0,
category = c('A', 'B', 'C', 'D'),
fill = c('red', 'blue', 'green', 'darkorange1'),
cat.col = c('red', 'blue', 'green', 'darkorange1'),
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 = F
)