如何在 R Vennerable Venn Diagram 中获得标题？

Question

我在文档中找不到任何内容 here。代码

library("Vennerable")
data(StemCell)
Vstem <- Venn(StemCell)
Vstem3 <- Vstem[, c("OCT4", "SOX2", "NANOG")]
tl <- "masi"
plot(Vstem3, doWeights = TRUE, type = "circles")

尝试失败

plot(..., main = tl)
plot(..., title = tl)
plot(...); title(tl)
plt <- plot(...); title(plt, tl)

图1 没有标题的错误输出

R: 3.3.1
OS：Debian 8.5

Answer 1

user20650 在此处总结的评论中回答。尝试 (1-2) 并选择最适合的。

绘图方法是基于网格包的，所以普通的基础R绘图方法添加标题是行不通的。查看 args(Vennerable:::plotVenn) 的论点，似乎没有办法添加标题，而且这些图没有 return 网格 object 也没有帮助。所以你可以用下面的
在情节window上画一个标题
```
grid.text("masi", y=0.9, gp=gpar(col="red", cex=2))
```

作为替代方法，您可以抓取 grob 然后使用 grid.arrange 绘制标题

gridExtra::grid.arrange(grid::grid.grabExpr(plot(Vstem3, doWeights = TRUE, 
   type = "circles")), top="masi")

grid.arrange方式将标题作为一个单独的grob添加，然后将它们排列成两行。所以当调整图形大小时window，它仍然出现在图的上方。当直接在 window 上绘制时（如第一个版本），情况并非如此。注意：您不需要使用 gridExtra，您可以在 grid 中执行此操作。

图1 来自 (1) 的输出，图 2 (2)

的输出

我认为 (1) 可以通过更多调整更好，但现在 (2) 更好。

如何在 R Vennerable Venn Diagram 中获得标题？

How to have title in R Vennerable Venn Diagram?

r

venn-diagram