使用VennDiagram包在R中创建VennDiagram时，输出相交基因/值的列表

install.packages("VennDiagram") # 安装VennDiagram包
library(VennDiagram) # 加载VennDiagram包

set1 <- c("gene1", "gene2", "gene3")  # 第一个集合
set2 <- c("gene2", "gene3", "gene4", "gene5")  # 第二个集合
set3 <- c("gene4", "gene5", "gene6")  # 第三个集合

venn.diagram(
  x = list(set1, set2, set3),  # 设置集合列表
  category.names = c("Set 1", "Set 2", "Set 3"),  # 设置集合名称
  filename = "venn_diagram.png"  # 输出文件名
)

overlap <- calculate.overlap(
  x = list(set1, set2, set3),  # 设置集合列表
  category.names = c("Set 1", "Set 2", "Set 3")  # 设置集合名称
)

write.table(
  x = overlap$intersect,  # 获取相交的基因/值列表
  file = "overlap_genes.txt",  # 输出文件名
  quote = FALSE,  # 不对文本值加引号
  row.names = FALSE,  # 不输出行名称
  col.names = FALSE  # 不输出列名称
)