ade4 (version 1.2-2)

scatter: 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}

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))