# #——前,回声= FALSE,结果= '隐藏 '------------------------------------------ 库(knitr) opts_chunk美元集(警告= FALSE,消息= FALSE,缓存= TRUE) # #——风格,呼应= FALSE,结果= '飞机 '---------------------------------------- BiocStyle:减价 () ## ----------------------------------------------------------------------------- 库(rrvgo) go_analysis < - read.delim(执行(“extdata / example.txt”、包=“rrvgo”))simMatrix < calculateSimMatrix (go_analysis ID,美元位于安大略省orgdb = " org.Hs.eg.db”=“英国石油公司”,方法= " Rel ") ## ----------------------------------------------------------------------------- 分数< - setNames (log10 (go_analysis qvalue美元),go_analysis $ ID) reducedTerms < reduceSimMatrix (simMatrix、分数阈值= 0.7,orgdb = " org.Hs.eg.db ") ## ----------------------------------------------------------------------------- heatmapPlot (simMatrix reducedTerms annotateParent = TRUE, annotationLabel =“parentTerm”,字形大小= 6 ) ## ----------------------------------------------------------------------------- 散点图(simMatrix reducedTerms ) ## ---- eval = FALSE -------------------------------------------------------------- # treemapPlot (reducedTerms ) ## ----------------------------------------------------------------------------- wordcloudPlot (reducedTerms min.freq = 1,颜色=“黑 ") ## ---- eval = FALSE -------------------------------------------------------------- # rrvgo: shiny_rrvgo () ## ---- eval = FALSE -------------------------------------------------------------- # my_new_fancy_orgdb_object < -“org.Zz.eg.db”# hsGO < - GOSemSim:: godata (my_new_fancy_orgdb_object,安大略省的= " MF ") ## ---- 引用 ----------------------------------------------------------------- 引用(“rrvgo ") ## ---- 回声= FALSE --------------------------------------------------------------- sessionInfo ()