[Archetypes-commits] r30 - pkg/R

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

Author: manuel
Date: 2010-03-11 17:48:14 +0100 (Thu, 11 Mar 2010)
New Revision: 30

Modified:
   pkg/R/archetypes-barplot.R
Log:


Modified: pkg/R/archetypes-barplot.R
===================================================================
--- pkg/R/archetypes-barplot.R	2010-03-11 16:29:55 UTC (rev 29)
+++ pkg/R/archetypes-barplot.R	2010-03-11 16:48:14 UTC (rev 30)
@@ -42,14 +42,17 @@
 
     layout(matrix(1:p, nrow = p, byrow = TRUE))
     for ( i in 1:(p - 1) ) {
-      par(mar = c(0, 4, 1, 0) + 0.1)
-      x.at <- barplot(atypes[i,], ylab=ylab, ylim=ylim, names.arg='',
-                      las=2, ...)
+      par(mar = c(0, 5, 1, 0) + 0.1)
+      x.at <- barplot(atypes[i,], ylab=ylab, ylim=ylim,
+                      names.arg='', las=2, ...)
+      mtext(sprintf('Archetype %s', i), side = 2, line = 4,
+            cex = par('cex'))
     }
     text(x.at, par("usr")[3] - 1, srt = 90, adj = 1,
          labels = colnames(atypes), xpd = NA)
   }
 
+
   which <- match.arg(which)
   if ( which == 'beside' )
     which.arg <- match.arg(which.beside)