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