从维恩图的每个区域提取值

Question

我有 6 个列表。每个都包含来自给定条件的感兴趣基因。然后使用这六个列表使用 venn 包在 r 中制作维恩图。

维恩图正是我想要的，但现在我想从维恩图的每个部分生成一个基因列表。我该怎么做呢？即我如何找出我的列表中的哪些基因包含每个列表/条件中存在的 1251 个基因？

图书馆（venn）

venn_list_no <- list(pt_v_lb = rownames(pt_v_lb_no), lbdm_v_lb = rownames(lbdm_v_lb_no), ptdm_v_lb = rownames(ptdm_v_lb_no), lbdm_v_pt = rownames(lbdm_v_pt_no), ptdm_v_pt = rownames(ptdm_v_pt_no), ptdm_v_lbdm = rownames(ptdm_v_lbdm_no))

venn(venn_list_no, zcolor = "style", ggplot = T, opacity = 0.2, box = F)+ 主题()