# #设置,包括= FALSE ----------------------------------------------------- knitr: opts_chunk美元集(崩溃= TRUE,发表评论 = "#>" ) ## ---- 负载,消息= FALSE ------------------------------------------------------ 库(后代)图书馆(ggplot2)图书馆(dplyr) # #——模型 -------------------------------------------------------------------- 模型< -后代:model_human_full头(模型)# #——w_dist ------------------------------------------------------------------- # 得到最高100重要的基因通路model_100 < -模型% > % group_by(途径)% > % slice_min (order_by = p.value, n = 200) #情节ggplot (data = model_100 aes (x =重量,Color =pathway, fill=pathway)) + geom_density() + theme(text = element_text(size=12)) + facet_wrap(~ pathway, scales='free') + xlab('scores') + ylab(' density ') + theme_bw() + theme(图例。Position = "none")