# #——风格,eval = TRUE,呼应= FALSE,结果= "飞机 "------------------------ BiocStyle::乳胶()库(knitr)美元opts_chunk组(缓存= TRUE,整洁= FALSE) # #——loadgenome消息= FALSE ------------------------------------------- 库(Gviz)数据(cpgIslands)对应< -“chr7”基因组< - - - - - -“hg19”# #——plottrack,fig.height = 3 --------------------------------------------- atrack < - AnnotationTrack (cpgIslands name = " CpG ") plotTracks (atrack) # #——plottrack2 fig.height = 3 -------------------------------------------- gtrack < - GenomeAxisTrack () plotTracks(列表(gtrack atrack )) ## ---- plottrack3,fig.height = 3 -------------------------------------------- itrack < - IdeogramTrack(基因组=基因组染色体=科)plotTracks(列表(itrack、gtrack atrack )) ## ---- PLOT4 --------------------------------------------------------------- 数据(geneModels) grtrack < GeneRegionTrack (geneModels基因组=基因组染色体=空空的,name = "基因模型”)跟踪< -列表(itrack、gtrack atrack, grtrack) plotTracks # #——plot5(跟踪) --------------------------------------------------------------- plotTracks(跟踪,从= 2.5 e7, = 2.8 e7) # #——安徒生 --------------------------------------------------------------- 库斯特拉克(BSgenome.Hsapiens.UCSC.hg19) < - SequenceTrack (Hsapiens,染色体=科)plotTracks (c(跟踪、斯特拉克),从= 26450430 = 26450490,cex = 8) # #——plot7 --------------------------------------------------------------- ## 一些数据lim < - c(26700000, 26900000)坐标< - seq (lim [1], lim [2], 101) dat < - runif(长度(坐标)- 1分钟= -10,max = 10) # # DataTrack dtrack < DataTrack (data = dat,start= coors [-length(coors)]， end= coors [-1]， chromosome=chr, genome=genome, name="Uniform Random") plotTracks(c(tracks, dtrack))