Как добавить заголовок на каждом участке в диаграмме Венна R

Question

Я использую R draw.pairwise.venn для рисования диаграмм Венна. Я хочу добавить много диаграмм Венна на одном графике и добавить разные названия для каждого из них. Вот мой код.

library(VennDiagram)
library(gridExtra)
g = draw.pairwise.venn(88, 3852, 86, category = c('A', 'B'), lty = rep("blank",2), fill = c("red", " navyblue"), alpha = rep(0.5, 2), cat.pos = c(0,0), cat.dist = rep(0.025, 2,  euler.d=TRUE,  scaled=TRUE, ind = FALSE))
g1 = draw.pairwise.venn(98, 3812, 56, category = c('A', 'B'), lty = rep("blank",2), fill = c("red", " navyblue"), alpha = rep(0.5, 2), cat.pos = c(0,0), cat.dist = rep(0.025, 2,  euler.d=TRUE,  scaled=TRUE, ind = FALSE))
grid.arrange(gTree(children=g),gTree(children=g1), top=c("Central Asia","Africa"))

Я хочу что-то подобное.

Но это дает мне только один титул Центральная Азия на вершине. Может ли кто-нибудь помочь мне в этом вопросе?

Answer 1

Вы можете использовать plot_grid из cowplot для добавления отдельных ярлыков:

cowplot::plot_grid(gTree(children = g), gTree(children = g1), 
                   labels = c("Central Asia","Africa"))