Venn Diagram with Item labels

Question

Suppose I have two vectors

foo <- c(\'a\',\'b\',\'c\',\'d\')
baa <- c(\'a\',\'e\',\'f\',\'g\')

Does anyone know of a way to produce a

Answer 1

Using the RAM package:

library(RAM)
foo <- c('a','b','c','d')
baa <- c('a','e','f','g')
group.venn(list(foo=foo, baa=baa), label=TRUE, 
    fill = c("orange", "blue"),
    cat.pos = c(0, 0),
    lab.cex=1.1)