# 导出KEGG结果 write.csv(kegg_res@result,"KEGG_enrichment_results.csv", row.names = FALSE) # -------------------------- # 4. KEGG可视化 # -------------------------- # 条形图(显示前20条) barplot(kegg_res, showCategory= 20, t
# 导出KEGG结果 write.csv(kegg_res@result,"KEGG_enrichment_results.csv", row.names = FALSE) # --- # 4. KEGG可视化 # --- # 条形图(显示前20条) barplot(kegg_res, showCategory= 20, title="KEGG Pathway Enrichment") + theme(text = element_text(size = 10)) # 气泡图(显示前20条) do...