富集分析首字母大写
2020-07-10 本文已影响0人
一路向前_莫问前程_前程似锦
ego <- enrichGO(gene = eg$ENTREZID,
OrgDb = org.Hs.eg.db,
ont = "BP",
pAdjustMethod = "BH",
pvalueCutoff = 1,
qvalueCutoff = 1,
readable = TRUE)
ego@result$Description <- paste0(toupper(substring(ego@result$Description,0,1)),substring(ego@result$Description,2,nchar(ego@result$Description)))
ego2=data.frame(ego)
image.png
