R可视化：Venn图进阶版本

前言

最近看到一张不一样的韦恩图，添加了上下调基因数目的韦恩图，将其实现一下，用于自己的研究展示。

导入R包和数据

library(dplyr)
library(tibble)
library(ggplot2)
library(ggVennDiagram)
library(ggpubr)
library(data.table)

subgrp <- c("HC", "CP", "PDAC")
grp.col <- c("#568875", "#73FAFC", "#EE853D")

PDAC_HC_Batch1 <- fread("PDAC_HC_TWilcox_Batch1Run.csv")
PDAC_HC_Batch2 <- fread("PDAC_HC_TWilcox_Batch2Run.csv")

加载数据

链接: https://pan.baidu.com/s/1xezhpZRebCsct0AtlDpSHg 提取码: 2djy，Venn数据

PDAC_HC_Batch1 <- readxl::read_xlsx("./inputdata/VennDA/PDAC_HC_TWilcox_Batch1Run.xlsx", sheet = 1)
PDAC_HC_Batch2 <- readxl::read_xlsx("./inputdata/VennDA/PDAC_HC_TWilcox_Batch2Run.xlsx", sheet = 1)

构建函数