-
问题：发现之前用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
网友评论