r - 为维恩图的交点着色

Question

我一直在努力只在维恩图的交叉点上着色，并想知道我该怎么做。仅将一种颜色填充为白色并没有帮助。

  Intersection_of_A_and_B <- venn.diagram(x = list("A" = 1:100,
                                                     "B" = 96:140),
                                            category.names = c("A", "B"),
                                            filename = NULL,
                                            fill = c("palegreen4", "white"),
                                            alpha = 1,
                                            fontface = "bold",
                                            fontfamily = "Courier",
                                            cat.fontface = "bold",
                                            cat.fontfamily = "Courier") 
    
    grid.arrange(gTree(children = Intersection_of_A_and_B), 
                 top = "Intersection of A and B")

此外，我有什么方法可以将标题更改为与我的类别相同的字体？

标签： rvenn-diagram