eggnog 数据为例

    1. library(dplyr)
    2. ## 读取注释数据
    3. anno_data <- data.table::fread("out.emapper.annotations",skip = 4,fill = T)
    5. GO_anno <- eggnogG2T(anno_data,"#query","GOs")
    6. ## 获取GO Term的描述信息
    7. GO_description <- clusterProfiler::go2term(GO_anno$Term)
    9. KEGG_anno <- eggnogG2T(anno_data,"#query","KEGG_Pathway")
    10. ## 获取KEGG的描述信息
    11. KEGG_anno <- KEGG_anno %>%
    12.   filter(stringr::str_detect(Term, 'ko'))
    13. KEGG_description <- clusterProfiler::ko2name(KEGG_anno_1$Term)