1. library(GSEABase) # BiocManager::install('GSEABase')
    2. library(clusterProfiler)
    4. abc=c("A","B","C")
    5. gset <- c("GSEA_geneset","NA",abc)
    6. gset <- gset%>% as.data.frame() %>% t()
    8. write.table(gset,file = "GSEA_geneset.gmt",sep = "\t",row.names = F,col.names = F,quote = F)
    10. eneset <- read.gmt("GSEA_geneset.gmt")  ##读取自制GSEA基因集