r - 为维恩图添加标题和副标题

Question

我正在尝试向我使用 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
)

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