scatter.coa | R Documentation |
performs the scatter diagrams of a correspondence analysis.
## S3 method for class 'coa' scatter(x, xax = 1, yax = 2, method = 1:3, clab.row = 0.75, clab.col = 1.25, posieig = "top", sub = NULL, csub = 2, ...)
x |
an object of class |
xax |
the column number for the x-axis |
yax |
the column number for the y-axis |
method |
an integer between 1 and 3 |
clab.row |
a character size for the rows |
clab.col |
a character size for the columns |
posieig |
if "top" the eigenvalues bar plot is upside,vif "bottom" it is downside, if "none" no plot |
sub |
a string of characters to be inserted as legend |
csub |
a character size for the legend, used with |
... |
further arguments passed to or from other methods |
Daniel Chessel
Oksanen, J. (1987) Problems of joint display of species and site scores in correspondence analysis. Vegetatio, 72, 51–57.
data(housetasks) w <- dudi.coa(housetasks, scan = FALSE) if(adegraphicsLoaded()) { g1 <- scatter(w, method = 1, psub.text = "1 / Standard", posieig = "none", plot = FALSE) g2 <- scatter(w, method = 2, psub.text = "2 / Columns -> averaging -> Rows", posieig = "none", plot = FALSE) g3 <- scatter(w, method = 3, psub.text = "3 / Rows -> averaging -> Columns ", posieig = "none", plot = FALSE) G <- ADEgS(list(g1, g2, g3), layout = c(2, 2)) } else { par(mfrow = c(2, 2)) scatter(w, method = 1, sub = "1 / Standard", posieig = "none") scatter(w, method = 2, sub = "2 / Columns -> averaging -> Rows", posieig = "none") scatter(w, method = 3, sub = "3 / Rows -> averaging -> Columns ", posieig = "none") par(mfrow = c(1, 1)) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.