# #——read_data消息= FALSE ----------------------------------------------- 库(“QFeatures”)数据(hlpsms) hl < readQFeatures (hlpsms生态= 1:10,name = " psm ") ## ---- aggregateFeatures -------------------------------------------------------- hl < - aggregateFeatures (hl、“psm”、“序列”,name =“肽”,有趣= colMeans) hl < aggregateFeatures (hl,“肽”,“ProteinGroupAccessions”,name =“蛋白质”,有趣= colMeans) # #——add_TMT_info ------------------------------------------------------------- hl标记< - c(“126”、“127 n”、“127 c”,“128 n”,“128 c”,“129 n”,“129 c”,“130 n”,“130 c, 131 ") ## ---- 情节 --------------------------------------------------------------------- 情节(hl) # #——plot2,。宽度= " 400 px "------------------------------------------------- 数据(“feat3”)情节(feat3) # #——plot_interactive eval = FALSE ------------------------------------------- # 情节(hl、互动= TRUE) # #——plot_assay --------------------------------------------------------------- “蛋白质”情节(化验(hl) [1,]) ## ---- hist_rowData ------------------------------------------------------------- 嘘构成了rowData (hl)([[“蛋白质”]].美元)# #——table_tag ---------------------------------------------------------------- 表(hl标签美元)# #——ggplot_rowData消息= FALSE ------------------------------------------ 库(ggplot2) df < - data.frame构成了rowData (hl)([[“蛋白质”]])ggplot (df) + aes (x = . ncn) + geom_histogram () ## ---- ComplexHeatmap,消息= FALSE ------------------------------------------ 库(ComplexHeatmap)的热图(矩阵=试验(hl,“蛋白质”),show_row_names = FALSE) # #——ComplexHeatmap_annotations ----------------------------------------------- ha < rowAnnotation(标记构成了rowData (hl) =[[“蛋白质”]]美元标记)的热图(矩阵=测定(hl,“蛋白质”),show_row_names = FALSE, left_annotation =公顷)# #——longFormat fig.height = 7, fig.width = 9 -------------------------------- 如果< longFormat (hl、“蛋白质”,rowvar = "标记",colvars =“标记”)ggplot (data.frame(低频))+ aes (x =标签,y =值组= rowname) + geom_line () + facet_wrap(~标记,鳞片=“free_y ncol = 3) # #——显示,eval = FALSE ---------------------------------------------------- # 显示器(hl) # #——heatmapdisplay,结果=“标记”,fig.cap =”“QFeatures”交互接口:肽测定数据的热图。”,呼应= FALSE,。width='100%'， fig.align='center'， fig.wide = TRUE---- knitr::include_graphics("./figs/display_hmap.png"， error =FALSE) ## ----assaydisplay, results='markup'， fig.cap=" ' QFeatures '交互界面:定量肽分析数据。"，echo=FALSE, out。width='100%'， fig.align='center'， fig.wide = TRUE---- knitr::include_graphics("./figs/display_assay.png"， error =FALSE) ## ----rowdatadisplay, results='markup'， fig.cap=" ' QFeatures '交互界面:肽分析行数据"，echo=FALSE, out。宽度= 100%,fig.align =‘中心’,fig.wide = TRUE——knitr:: include_graphics(“。/无花果/ display_rowdata.png”,错误= FALSE) # #——sessioninfo回声= FALSE -------------------------------------------------- sessionInfo ()