[Phylobase-commits] r188 - branches/pdcgsoc/misc

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

Author: pdc
Date: 2008-06-12 23:34:32 +0200 (Thu, 12 Jun 2008)
New Revision: 188

Modified:
   branches/pdcgsoc/misc/plot.phylo.R
Log:
Prevent labels from overlapping phylogeny, comment some testing code

Modified: branches/pdcgsoc/misc/plot.phylo.R
===================================================================
--- branches/pdcgsoc/misc/plot.phylo.R	2008-06-12 05:52:02 UTC (rev 187)
+++ branches/pdcgsoc/misc/plot.phylo.R	2008-06-12 21:34:32 UTC (rev 188)
@@ -183,7 +183,8 @@
         grid.text(
             x$tip.label, 
             x = rep(0, length(x$tip.label)), 
-            y = (yy/max(yy))[TIPS], rot = rot
+            y = (yy/max(yy))[TIPS], 
+            rot = rot, just = 'left'
             )
         popViewport()
     }
@@ -338,7 +339,7 @@
 }
 
 ## testing
-require(ape)
-bar <- rcoal(7)
-bar$tip.label <- c("one", "two", "three", "four", "five", "six", "seven")
-myplot(bar, show.tip.label = TRUE)
+## require(ape)
+## bar <- rcoal(7)
+## bar$tip.label <- c("one", "two", "three", "four", "five", "six", "seven")
+## myplot(bar, show.tip.label = TRUE)