首先安装:
>BiocManager::install("org.Mm.eg.db")
>library(ggplot2)
>library(clusterProfiler)
>library(org.Mm.eg.db)
>s2e <- bitr(deg$symbol,
fromType = "SYMBOL",
toType = "ENTREZID",
OrgDb = org.Mm.eg.db)#小鼠
#其他物种http://bioconductor.org/packages/release/BiocViews.html#___OrgDb
>deg <- inner_join(deg,s2e,by=c("symbol"="SYMBOL"))
>save(group_list,deg,logFC_t,P.Value_t,file = "step4output.Rdata")