將標題和子標題添加到維恩圖

Question

我正在嘗試向我的維恩圖中添加一個主標題和子標題，這是我在R中使用以下代碼創建的。我已閱讀R'VennDiagram'包文檔，但未成功。我也嘗試使用帶有textGrob的gird.arrange（）和生成的代碼中的圖形，但收到一個錯誤，指出所有輸入必須是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")