如何解决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 参数调整所需的位置。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。