Диаграмма Венна с метками товаров

Предположим, что у меня есть два вектора

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

Кто-нибудь знает способ создания диаграммы Венна, но элементы вектора визуализируются внутри диаграммы.

Как так? (сделано в powerpoint)

Ответ 1

Использование пакета RAM:

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)

Ответ 2

Быстрое решение с использованием функции venn.diagram из пакета VennDiagram. Ярлыки (счетчики) жестко закодированы в функции, поэтому их нельзя изменять с помощью аргументов функции. Но для простого примера вы можете изменить grobs самостоятельно.

library(VennDiagram)

# your data
foo <- c('a','b','c','d')
baa <- c('a','e','f','g')

# Generate plot
v <- venn.diagram(list(foo=foo, baa=baa),
                  fill = c("orange", "blue"),
                  alpha = c(0.5, 0.5), cat.cex = 1.5, cex=1.5,
                  filename=NULL)

# have a look at the default plot
grid.newpage()
grid.draw(v)

# have a look at the names in the plot object v
lapply(v,  names)
# We are interested in the labels
lapply(v, function(i) i$label)

# Over-write labels (5 to 7 chosen by manual check of labels)
# in foo only
v[[5]]$label  <- paste(setdiff(foo, baa), collapse="\n")  
# in baa only
v[[6]]$label <- paste(setdiff(baa, foo)  , collapse="\n")  
# intesection
v[[7]]$label <- paste(intersect(foo, baa), collapse="\n")  

# plot  
grid.newpage()
grid.draw(v)

Что производит

Очевидно, что этот метод быстро выйдет из-под контроля с большим количеством категорий и пересечений.