将标题和副标题添加到维恩图

Question

我试图为使用以下R代码创建的Venn图添加主标题和副标题。我已经阅读了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
)

- user3209543

Answer 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")

- baptiste