R IN ACTION SELF-TUTORIAL-68 用gg

• 问题：发现之前用library(VennDiagram)绘制的venn图没法用来与ggplot绘制的图进行组合patch，所以，想着会否可以用其他的library做出来可以合并，所以试了下ggvenn.

• 实现与代码：

install.packages('ggvenn') # 安装

library(ggvenn)#导入

• 数据构造：

a<-c(2,1,5,8,9)
b<-c(2,3,4,5,6)

# 重点来了，生成list：
vd<-list('a'=a,'b'=b)

• 进行绘图：

ggvenn(vd)

• 得到：

  
  image.png
• 这个就可以照用ggplot美化工序，比如theme ，title等都可以实现：

gp<-ggvenn(vd,fill_color = c("red","green"))+labs(title = "ggvenn Rashidin")
gp

image.png

• 随便作一个ggplot图，用patchwork包将两个组合：

library(ggplot2)
p2<-ggplot(mtcars)+geom_abline()+labs(title = "Line of  Rashidin")
p2

image.png

---

• 进行组合：

library(patchwork)
gp+p2

得到：

image.png

---

• 参考：
  https://rdrr.io/github/yanlinlin82/ggvenn/man/geom_venn.html