如何在维恩图 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"))

我想要这样的东西。

但它只给我一个标题 CentralAsia 在顶部。谁能帮我解决这个问题？

Answer 1

您可以使用 cowplot 中的 plot_grid 添加单独的标签：

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

Answer 2

VennDiagram 包已有添加标题的参数。当您使用 draw.pairwise.venn() 绘制图表时，只需将 main = "Central Asia" 作为参数包含在内。在您的情况下，它将如下所示：

g = draw.pairwise.venn(88, 3852, 86, category = c('A', 'B'), lty = rep("blank",2), main = "Central Asia", 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))

如何在维恩图 R 中的每个图上添加标题

How to add title on each plot in Venn diagram R

r

venn-diagram