# #——消息= FALSE ------------------------------------------------------------ 库(tidyverse)图书馆(ggplot2)图书馆(dce) set.seed (42 ) ## ----------------------------------------------------------------------------- dce:: df_pathway_statistics % > %安排(desc (node_num)) % > %头(10)% > % knitr:: kable () ## ----------------------------------------------------------------------------- dce: df_pathway_statistics % > %计数(数据库,= TRUE,name = " pathway_number ") % > % knitr:: kable () ## ----------------------------------------------------------------------------- dce: df_pathway_statistics % > % ggplot (aes (x = node_num)) + geom_histogram(垃圾箱= 30)+ facet_wrap(~数据库,尺度=“免费”)+ theme_minimal () ## ---- 消息= FALSE ------------------------------------------------------------ 路径< - get_pathways (pathway_list =列表(pathbank = c(“乳糖合成”),kegg = c(脂肪酸生物合成)))拉普兰人(途径,函数(x) {plot_network ((x美元图,“矩阵”),visualize_edge_weights = FALSE, arrow_size = 0.02, shadowtext = TRUE) + ggtitle (x pathway_name美元 ) }) ## ----------------------------------------------------------------------------- sessionInfo ()