оптимизированная VennDiagram с внутренними метками r

Я пытаюсь построить диаграмму Венна оптимизированным способом (см. Ниже) и со случаями в качестве внутренних меток (а не с количеством случаев на каждом пересечении). Я знаю, что для каждого из них есть сообщение, но ни одно из решений не позволило мне сделать оба.

У меня есть это:

x <- list()
x$A <- as.character(c("Per_36","Cent","CeM","vDG","LAVL","RSGd"))
x$B <- as.character(c("vCA1","DLE","Per_36","vDG","DIE","Per_35"))
x$C <- as.character(c("vCA1","Cg1","LAVL", "RSGc", "RSGd","Per_35","Per_36"))
x$D <- as.character(c("Por","Cg1","RSGc","LAVL","Per_35","RSGd","Per_36"))


require(VennDiagram)
v0 <-venn.diagram(x, lwd = 3, col = c("red", "green", "orange", "blue"),
                fill = c("red", "blue", "green", "orange"), apha = 0.5, filename = NULL)
grid.draw(v0)
overlaps <- calculate.overlap(x)
overlaps <- rev(overlaps)
for (i in 1:length(overlaps)){
  v0[[i+8]]$label <- paste(overlaps[[i]], collapse = "\n")
}

grid.newpage()
grid.draw(v0)

Я получаю следующий вывод:

Что касается организации диаграммы Венна, я хочу сделать следующее:

c <- venn(x, simplify = TRUE, small = 0.5, intersections = TRUE)

который я получил из пакета gplots(), используя функцию venn с simplify = TRUE. Однако в функции venn я, похоже, не смогу заменить счетчики именами меток. Я использовал пересечения = TRUE, что по описанию аргумента должно работать, но не работает (хотя если я смотрю внутрь переменной c, информация там есть).

    Logical flag indicating if the returned object should have the attribute 
"individuals.in.intersections" featuring for every set a list of individuals
 that are assigned to it.

Вопрос: Можно ли с помощью VennDiagrampackage сделать то же самое, что и аргумент simplify в функции venn из пакета gplots?

Вопрос 2: Используя функцию venn из пакета gplots, есть ли способ отображать имена каждого элемента вместо количества элементов? Как я сделал в функции venn.diagram?

Заранее спасибо,