An DOSE::enrichResult-class will produced by clusterProfiler::enrichKEGG or RNAseqStat::enrich_kegg. RNAseqStat::kegg_barplot make a barplot from enrichResult.

test <- enrich_kegg(deg_data = DEG_df, x = "log2FoldChange", y = "pvalue")
#> Down 1384 
#> Stable 21167 
#> Up 2401
#> 
#> 'select()' returned 1:1 mapping between keys and columns
#> Warning in clusterProfiler::bitr(SYMBOLS_id, fromType = "SYMBOL", toType =
#> "ENTREZID", : 17.56% of input gene IDs are fail to map...
#> 'select()' returned 1:many mapping between keys and columns
#> Warning in clusterProfiler::bitr(SYMBOLS_id, fromType = "SYMBOL", toType =
#> "ENTREZID", : 19.62% of input gene IDs are fail to map...
#> 🌳 Enrich KEGG analysis Start. This process will take a few minutes.
kegg_barplot(test)