# # # R代码从装饰图案的plotAlongChrom来源。Rnw“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:负载# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(“网格”)库(RColorBrewer)库(tilingArray) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:errorReporting # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #选项(错误=恢复,警告= 0,位数= 3)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块3号:showTilingArrayData # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #数据(“segnf”)类(segnf) ls (segnf) segnf“1美元。+“头(segnf“1美元。+”@y)暗(segnf“1 +”@y美元)头(segnf“1 +”@x美元)长度(segnf“1 +”@x美元)segnf $”1。+ " @logLik segnf $”1。+ " @nrSegments头(segnf“1 +”。美元@breakpoints [[segnf $“1 +”。@nrSegments]]) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:gffSub # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #数据(gffSub)头(gffSub) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:alongChromDot1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # grid.newpage () plotAlongChrom (segnf, = 1,从而向coord = c(35000、50000),什么=“点”,人造石铺地面= gffSub) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块6号:alongChromDot2 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # segObj = new。env(父= baseenv ()) nmLabel = colnames (segnf“1 +”@y美元)实验室= gsub (“\ \ d”、“nmLabel)为(nm粘贴(1 c (“+”,“-”), 9 =“。”)) {s =得到(nm, env = segnf) rpY = tapply(1:长度(实验室)、实验室、功能(i) rowMeans (s@y[我]))s@y = do.call (cbind rpY)分配(nm,年代,segObj)} grid.newpage () plotAlongChrom (segObj, = 1,从而向coord = c(35000、50000),什么=“点”,人造石铺地面= gffSub sepPlot = T) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块7号:alongChromHeatmap1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # grid.newpage () plotAlongChrom (segnf, = 1,从而向coord = c(35000、50000),什么=“热图”,人造石铺地面= gffSub rowNamesHeatmap = nmLabel makeRasterImage = FALSE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块8号:alongChromHeatmap2 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # grid.newpage () plotAlongChrom (segnf, = 1,从而向coord = c(35000、50000),什么=“热图”,人造石铺地面= gffSub rowNamesHeatmap = nmLabel makeRasterImage = TRUE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块9号:alongChromHeatmap3 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # grid.newpage () plotAlongChrom (segnf, = 1,从而向coord = c(35000、50000),什么=“热图”,人造石铺地面= gffSub rowNamesHeatmap = nmLabel makeRasterImage = TRUE, colHeatmap = colorRamp(布鲁尔。朋友(9,“蓝调”)))