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

【问题标题】：How to add title on each plot in Venn diagram R如何在维恩图 R 中的每个图上添加标题
【发布时间】：2019-01-08 07:26:07
【问题描述】：

我正在使用 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"))

我想要这样的东西。

但它只给了我一个中亚的头衔。任何人都可以在这件事上帮助我吗？

【问题讨论】：

标签： r venn-diagram

【解决方案1】：

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

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

【讨论】：

【解决方案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))

【讨论】：