[Patchwork-commits] r80 - pkg/patchwork/R

[noreply at r-forge.r-project.org]

Author: mayrhofer
Date: 2012-02-08 10:51:36 +0100 (Wed, 08 Feb 2012)
New Revision: 80

Modified:
   pkg/patchwork/R/karyotype_chroms.r
   pkg/patchwork/R/karyotype_chromsCN.r
Log:
fixed axis legends

Modified: pkg/patchwork/R/karyotype_chroms.r
===================================================================
--- pkg/patchwork/R/karyotype_chroms.r	2012-02-06 16:13:29 UTC (rev 79)
+++ pkg/patchwork/R/karyotype_chroms.r	2012-02-08 09:51:36 UTC (rev 80)
@@ -49,7 +49,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
 		    	main = "",
-		    	xlab = "Total intensity -->",
+		    	xlab = "Coverage, all segments",
 		    	ylab = '',
 		    	col = c(col[!ix],col[ix]),
 		    	xlim = xlim,
@@ -58,7 +58,7 @@
         		xaxt="n")
         	axis(1,cex.axis=2)
         	axis(2,cex.axis=2)
-        	mtext(text="Allelic imbalance -->",side=2,line=4,las=3,cex=2)
+        	mtext(text="Allelic imbalance",side=2,line=4,las=3,cex=2)
 		
         	par(new=F)
         	mix <- mchr==as.character(this$chr)
@@ -75,7 +75,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
     	    	main = "",
-		    	xlab = "Total intensity",
+		    	xlab = paste("Coverage,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),
@@ -98,7 +98,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
             	main = "",
-		    	xlab = "Allelic imbalance",
+		    	xlab = paste("Allelic imbalance,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),

Modified: pkg/patchwork/R/karyotype_chromsCN.r
===================================================================
--- pkg/patchwork/R/karyotype_chromsCN.r	2012-02-06 16:13:29 UTC (rev 79)
+++ pkg/patchwork/R/karyotype_chromsCN.r	2012-02-08 09:51:36 UTC (rev 80)
@@ -50,8 +50,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
     	    	main = "",
-		    	xlab = "Total intensity -->",
-		    	#ylab = "Allelic imbalance -->",
+		    	xlab = "Coverage, all segments",
 		    	ylab = '',
 		    	col = c(col[!ix],col[ix]),
 		    	xlim = xlim,
@@ -60,7 +59,7 @@
         		xaxt="n")
         	axis(1,cex.axis=2)
         	axis(2,cex.axis=2)
-        	mtext(text="Allelic imbalance -->",side=2,line=4,las=3,cex=2)
+        	mtext(text="Allelic imbalance",side=2,line=4,las=3,cex=2)
 		    	
 			col=rep('#000000',sum(ix))
         	col[pos[ix] < this$mid] <- colors_p(sum(pos[ix] < this$mid))
@@ -68,7 +67,7 @@
         	par(new=F)
         	
         	plot(1,1,type='n',
-            	xlab='Total and minor copy number',
+            	xlab=paste('Total and minor copy number', this$chr),
             	ylab='',
             	cex.lab=3,
             	xlim = c(0,this$length),
@@ -96,7 +95,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
     	    	main = "",
-		    	xlab = "Total intensity",
+		    	xlab = paste("Coverage,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),
@@ -120,7 +119,7 @@
             	cex.lab=3,
             	#mar=c(0.1,0.1,0.1,0.1),
             	main = "",
-		    	xlab = "Allelic imbalance",
+		    	xlab = paste("Allelic imbalance,",this$chr),
 		    	ylab = "",
 		    	col = '#00000010',
 		    	xlim = c(0,this$length),