在“R”中带有“venneuler”的维恩图：从图中删除集合的名称并添加元素名称

Question

在过去的几天里，我一直试图弄清楚如何从任意数量的集合中绘制维恩图，并遇到了 R 包 venneuler。这段代码：

genes <- paste("gene",1:20,sep="")

df = data.frame(term=character(), class=character(), stringsAsFactors = FALSE)
for (k in 1:15) {
  df2=data.frame(term=sample(genes,10), class = rep(paste("class ",k,sep=""),10), stringsAsFactors = 
  FALSE)
  df<-rbind(df,df2)
}


library(rJava)
library(UpSetR)
library(tidyverse)
library(venneuler)
library(grid)

v <- venneuler(df)

par(cex = 0.5) 
plot(v)

产生这样的图形：

这个数字正是我想要的。无论如何，我想从图中删除集合的名称（1 类、2 类等），而是添加每个集合中包含的元素（例如基因 1、基因 2）。

Answer 1

你可以直接修改v$labels:

library(venneuler)
library(dplyr)
library(stringr)

v <- venneuler(df)

par(cex = 0.5) 

# Create the list of genes per class
classgenes <- df %>% group_by(class) %>% 
                     summarize(labels = paste(stringr::str_sort(term,numeric=T),collapse = '\n'))  %>%
                     ungroup 


# Order the class new label according to v$labels order
newlabels <- left_join(data.frame(class = v$labels), classgenes)
#> Joining, by = "class"

# Modify the labels
v$labels <- newlabels$labels

plot(v)