来自vignette源的vignettes/marray/inst/doc/marrayPlots的代码。Rnw ' ################################################### ### 代码块1号:marrayPlots。Rnw: 105 - 108 ################################################### 库(marray)数据(漩涡)maPlate(漩涡)< -maCompPlate(漩涡,n = 384 ) ################################################### ### 代码块2号:marrayPlots。Rnw: 128 - 131 ################################################### Gcol < - maPalette(低=“白色”,高=“绿色”,k = 50) Rcol < - maPalette(低=“白色”,高=“红色”,k = 50) RGcol < -maPalette(低=“绿色”,高=“红色”,50 k = ) ################################################### ### 代码块3号:maImageGb ################################################### tmp <图像(漩涡[3],xvar =“maGb子集= TRUE,坳= Gcol轮廓= FALSE,酒吧= FALSE ) ################################################### ### 代码块数量4:maImageRb ################################################### tmp <图像(漩涡[3],xvar =“maRb子集= TRUE,坳= Rcol轮廓= FALSE,酒吧= FALSE ) ################################################### ### 代码块5号:maImageMraw1 ################################################### tmp <图像(漩涡[3],xvar =“老妈”,酒吧= FALSE,主要= "涡流阵列93:pre -标准化M的形象 ") ################################################### ### 代码块6号:maImageMraw2 ################################################### tmp <图像(漩涡[3],xvar =“老妈”= maTop子集(maM(漩涡[3]),h = 0.10 l = 0.10),坳= RGcol轮廓= FALSE,酒吧= FALSE,主要= "涡流阵列93:前的形象——标准化M 10%尾巴 ") ################################################### ### 代码块7号:maImageSpotCol ################################################### tmp < -图像(漩涡[3],xvar =“maSpotCol”栏= FALSE ) ################################################### ### 代码块8号:maImagePrintTip ################################################### tmp < -图像(漩涡[3],xvar =“maPrintTip”栏= FALSE ) ################################################### ### 代码块9号:maImageControls ################################################### tmp < -图像(漩涡[3],xvar =“maControls坳= heat.colors(10),酒吧= FALSE ) ################################################### ### 代码块10号:maImagePlate ################################################### tmp < -图像(漩涡[3],xvar =“maPlate”栏= FALSE ) ################################################### ### 代码块11号:maBoxplot1pre ################################################### 箱线图(漩涡[3],xvar =“maPrintTip yvar =“老妈”,主要= "涡流阵列93:pre -正常化 ") ################################################### ### 代码块12号:maBoxplot2pre ################################################### 箱线图(漩涡,yvar =“老妈”,主要= "涡流阵列:pre -正常化 ") ################################################### ### 代码块13号:marrayPlots。Rnw: 343 - 344 ################################################### 漩涡。norm <- maNorm(swirl, norm="p") ################################################### ### code chunk number 14: maBoxplot1post ################################################### boxplot(swirl.norm[,3], xvar="maPrintTip", yvar="maM", main="Swirl array 93: post--normalization") ################################################### ### code chunk number 15: maBoxplot2post ################################################### boxplot(swirl.norm, yvar="maM", col="green", main="Swirl arrays: post--normalization") ################################################### ### code chunk number 16: maPlot1pre ################################################### defs<-maDefaultPar(swirl[,3],x="maA",y="maM",z="maPrintTip") # Function for plotting the legend legend.func<-do.call("maLegendLines",defs$def.legend) # Function for performing and plotting lowess fits lines.func<-do.call("maLowessLines",c(list(TRUE,f=0.3),defs$def.lines)) plot(swirl[,3], xvar="maA", yvar="maM", zvar="maPrintTip", lines.func, text.func=maText(), legend.func, main="Swirl array 93: pre--normalization MA--plot") ################################################### ### code chunk number 17: maPlot1post ################################################### plot(swirl.norm[,3], xvar="maA", yvar="maM", zvar="maPrintTip", lines.func, text.func=maText(), legend.func, main="Swirl array 93: post--normalization MA--plot")