R：UpSet韦恩图制作

#安装UpSetR
install.packages("UpSetR")
library(UpSetR)

#install.packages("UpSetR")
library(UpSetR)
library(Cairo)
# 从CSV文件中读取数据
setwd("C:/Users/fordata/Desktop/研究生/第二个想法(16s肠型＋宏基因组功能)/第二篇病毒组/result/otherDB")
data <- read.csv("3462+11.csv")
data <- data[, colSums(is.na(data)) == 0]
# 创建一个新的PDF文件
CairoPDF("your_file.pdf", width = 7, height = 5)
upset(data, 
      sets = c("URPC", "RVD", "IMG_VR4", 
               "GVD", "IGVD", "NEXT_PILOT"),
      number.angles = 0, 
      point.size = 2, 
      line.size = 1, 
      mainbar.y.label = "vOTU Counts", 
      sets.x.label = "vOTUs Per Database", 
      text.scale = c(1.1, 1.1, 1, 1, 1, 1),
      mb.ratio = c(0.7, 0.30),
      nintersects = NA,
      sets.bar.color = "#456990",
      main.bar.color = "#EA8379"
      )
  
dev.off()

R 数据可视化 —— 集合可视化 UpSetR_r语言如何提取upset图中各个子集的对象?-CSDN博客

超详细的教程可见这个！！