R 包 VennDiagram：如何在圆圈外打印值？

问题描述

假设：

• S={1,2,3,4,5,6,7,8,9,10,11,12}
• A={1,6}
• B={6,9}
• 交叉路口 B = {6}。

如何在维恩图中表示这些集合，使得集合 A 和 B 之外的值（在本例中为 {10,12}）打印在两个圆圈之外？

这是我想要的维恩图：

但这是我的代码生成的维恩图

如何在圆圈外打印“10”、“11”和“12”，如第一张图片所示？

这是我的代码：

library(vennDiagram)
S<-c(1,12)
A<-c(1,6)
B<-c(6,9)
v<-venn.diagram(list(A=A,B=B),fill=c("orange","blue"),alpha=c(0.5,0.5),cat.cex=1.5,cex=1.5,filename=NULL)
grid.newpage()
grid.draw(v)
lapply(v,names)
lapply(v,function(i) i$label)
v[[5]]$label<-paste(setdiff(A,B),collapse="\n")
v[[6]]$label<-paste(setdiff(B,A ),collapse="\n")
v[[7]]$label<-paste(intersect(A,collapse="\n")
grid.newpage()
grid.draw(v)

解决方法

如果你想坚持你的方法，你可以添加如下文字：

grid.text(x=c(0.5,0),y=c(0.1,label = paste(setdiff(S,c(A,B)),collapse=" "))

可以使用 x 和 y 参数调整所需的位置。