为维恩图添加标题和子标题答案

【问题标题】：Adding title and sub title to Venn Diagram为维恩图添加标题和子标题
【发布时间】：2014-01-18 10:30:43
【问题描述】：

我正在尝试为我使用 R 中的以下代码创建的维恩图添加主标题和副标题。我已通读 R 'VennDiagram' 包文档但没有成功。我也尝试过将 gird.arrange() 与 textGrob 和结果代码中的图形一起使用，但收到一条错误消息，指出所有输入都必须是 grobs。

require(VennDiagram)

draw.triple.venn(
  area1 = 396,
  area2 = 273,
  area3 = 147,
  n12 = 266,
  n23 = 86,
  n13 = 143,
  n123 = 83,
  category = c("Study", "Work", "Play"),
  fill = c("blue", "red", "green"),
  euler.d=TRUE,
  scaled=TRUE
)

【问题讨论】：

标签： r venn-diagram

【解决方案1】：

该函数的输出是一个 gList（如果您未指定 ind=FALSE，则为绘图的副作用）。为了将它与 grid.arrange 一起使用，您需要将其包装在 gTree 中，

g = draw.triple.venn(
  area1 = 396,
  area2 = 273,
  area3 = 147,
  n12 = 266,
  n23 = 86,
  n13 = 143,
  n123 = 83,
  category = c("Study", "Work", "Play"),
  fill = c("blue", "red", "green"),
  euler.d=TRUE,
  scaled=TRUE, ind = FALSE,
)

require(gridExtra)
grid.arrange(gTree(children=g), top="Title", bottom="subtitle")

【讨论】：