scatter {ade4}R Documentation

Scatter Plot

Description

scatter is a generic function. It has methods for the classes coa, dudi, fca, acm and pco.
The scale of the grid is situated on the right-top of the graph.
The points are in the middle of the labels.
This process plots the graphs of the multivariate analyses.
The two axes have the same scale.

Usage

scatter(x, ...)

Arguments

x an object used to select a method
... further arguments passed to or from other methods

Details

The functions scatter use some utilities functions :

scatterutil.base
defines the bottom of the plot for all scatters
scatterutil.chull
plots the polygons of the external contour
scatterutil.eigen
plots the eigenvalues bar plot
scatterutil.ellipse
plots an inertia ellipse for a weighting distribution
scatterutil.eti.circ
puts labels on a correlation circle
scatterutil.eti
puts labels centred on the points
scatterutil.grid
plots a grid and adds a legend
scatterutil.legend.bw.square
puts a legend of values by square size
scatterutil.legend.square.grey
puts a legend by squares and grey levels
scatterutil.legendgris
adds a legend of grey levels for the areas
scatterutil.scaling
to fit a plot on a background bipmap
scatterutil.star
plots a star for a weighting distribution
scatterutil.sub
adds a string of characters in sub-title of a graph
add.scatter.eig
adds a eigenvalues bar plot on a graph

Author(s)

Daniel Chessel chessel@biomserv.univ-lyon1.fr

See Also

s.arrow, s.chull, s.class, s.corcircle, s.distri, s.label, s.match, s.traject, s.value

Examples

par(mfrow = c(3,3))
plot.new()
scatterutil.legendgris(1:20, 4, 1.6) 

plot.new()
scatterutil.sub("lkn5555555555lkn", csub = 2, possub = "bottomleft")
scatterutil.sub("lkn5555555555lkn", csub = 1, possub = "topleft")
scatterutil.sub("jdjjl", csub = 3, possub = "topright")
scatterutil.sub("**", csub = 2, possub = "bottomright")

x <- c(0.5,0.2,-0.5,-0.2) ; y <- c(0.2,0.5,-0.2,-0.5)
eti <- c("toto", "kjbk", "gdgiglgl", "sdfg")
plot(x, y, xlim = c(-1,1), ylim = c(-1,1))
scatterutil.eti.circ(x, y, eti, 2.5)
abline(0, 1, lty = 2) ; abline(0, -1, lty = 2)

x <- c(0.5,0.2,-0.5,-0.2) ; y <- c(0.2,0.5,-0.2,-0.5)
eti <- c("toto", "kjbk", "gdgiglgl", "sdfg")
plot(x, y, xlim = c(-1,1), ylim = c(-1,1))
scatterutil.eti(x, y, eti, 1.5)

plot(runif(10,-3,5), runif(10,-1,1), asp = 1)
scatterutil.grid(2)
abline(h = 0, v = 0, lwd = 3)

x <- runif(10,0,1) ; y <- rnorm(10) ; z <- rep(1,10)
plot(x,y) ; scatterutil.star(x, y, z, 0.5)
plot(x,y) ; scatterutil.star(x, y, z, 1)

x <- c(runif(10,0,0.5), runif(10,0.5,1))
y <- runif(20)
plot(x, y, asp = 1) # asp=1 is essential to have perpendicular axes
scatterutil.ellipse(x, y, rep(c(1,0), c(10,10)), cell = 1.5, ax = TRUE)
scatterutil.ellipse(x, y, rep(c(0,1), c(10,10)), cell = 1.5, ax = TRUE)

x <- c(runif(100,0,0.75), runif(100,0.25,1))
y <- c(runif(100,0,0.75), runif(100,0.25,1))
z <- factor(rep(c(1,2), c(100,100)))
plot(x, y, pch = rep(c(1,20), c(100,100)))
scatterutil.chull(x, y, z, opt = c(0.25,0.50,0.75,1))
par(mfrow = c(1,1))

[Package ade4 version 1.4-0 Index]