[Vegan-commits] r1722 - in pkg/vegan: R inst man

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

Author: jarioksa
Date: 2011-08-17 09:33:35 +0200 (Wed, 17 Aug 2011)
New Revision: 1722

Modified:
   pkg/vegan/R/ordiplot.R
   pkg/vegan/inst/ChangeLog
   pkg/vegan/man/ordiplot.Rd
Log:
expose arg 'cex' in ordiplot

Modified: pkg/vegan/R/ordiplot.R
===================================================================
--- pkg/vegan/R/ordiplot.R	2011-08-17 06:32:43 UTC (rev 1721)
+++ pkg/vegan/R/ordiplot.R	2011-08-17 07:33:35 UTC (rev 1722)
@@ -1,6 +1,6 @@
 `ordiplot` <-
     function (ord, choices = c(1, 2), type = "points", display, xlim,
-              ylim, ...)
+              ylim, cex = 0.7, ...)
 {
     ## local functions to absorb non-par arguments of plot.default
     localPoints <- function(..., log, frame.plot, panel.first,
@@ -58,15 +58,15 @@
              ...)
         if (type == "points") {
             if (!is.null(X))
-                localPoints(X, pch = 1, col = 1, cex = 0.7, ...)
+                localPoints(X, pch = 1, col = 1, cex = cex, ...)
             if (!is.null(Y))
-                localPoints(Y, pch = "+", col = "red", cex = 0.7, ...)
+                localPoints(Y, pch = "+", col = "red", cex = cex, ...)
         }
         if (type == "text") {
             if (!is.null(X))
-                localText(X, labels = rownames(X), col = 1, cex = 0.7, ...)
+                localText(X, labels = rownames(X), col = 1, cex = cex, ...)
             if (!is.null(Y))
-                localText(Y, labels = rownames(Y), col = "red", cex = 0.7, ...)
+                localText(Y, labels = rownames(Y), col = "red", cex = cex, ...)
         }
         out <- list(sites = X, species = Y)
     }

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2011-08-17 06:32:43 UTC (rev 1721)
+++ pkg/vegan/inst/ChangeLog	2011-08-17 07:33:35 UTC (rev 1722)
@@ -23,6 +23,10 @@
 	* plot.isomap: will always plot points or text above net so that
 	they are visible. Gained argument 'type'.
 
+	* ordiplot: expose arg 'cex' so that user can change its value.
+	Age shows in this function, and it is badly in need of complete
+	re-writing to improve its flexibility.
+
 Version 1.90-2 (closed August 6, 2011)
 
 	* ordilabel: gained argument 'select'.

Modified: pkg/vegan/man/ordiplot.Rd
===================================================================
--- pkg/vegan/man/ordiplot.Rd	2011-08-17 06:32:43 UTC (rev 1721)
+++ pkg/vegan/man/ordiplot.Rd	2011-08-17 07:33:35 UTC (rev 1722)
@@ -16,7 +16,8 @@
   \code{\link{plot.rad}} as well.
 }
 \usage{
-ordiplot(ord, choices = c(1, 2), type="points", display, xlim, ylim, ...)
+ordiplot(ord, choices = c(1, 2), type="points", display, xlim, ylim,
+     cex = 0.7, ...)
 \method{identify}{ordiplot}(x, what, labels,  ...)
 \method{points}{ordiplot}(x, what, select, ...)
 \method{text}{ordiplot}(x, what, labels, select, ...)
@@ -32,6 +33,7 @@
     \code{\link{rda}} and \code{\link{capscale}} it is the same as in
     \code{\link{plot.cca}}.  }
   \item{xlim, ylim}{the x and y limits (min,max) of the plot.}
+  \item{cex}{Character expansion factor for points and text.}
   \item{\dots}{Other graphical parameters. }
   \item{x}{A result object from \code{ordiplot}.}
   \item{what}{Items identified in the ordination plot. The types depend