富集分析首字母大写

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