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

)