s.class {ade4}R Documentation

Plot of factorial maps with representation of point classes

Description

performs the scatter diagrams with representation of point classes.

Usage

s.class(dfxy, fac, wt = rep(1, length(fac)), xax = 1, 
    yax = 2, cstar = 1, cellipse = 1.5, axesell = TRUE, 
    label = levels(fac), clabel = 1, cpoint = 1, pch = 20, 
    col = rep(1, length(levels(fac))), xlim = NULL, ylim = NULL, 
    grid = TRUE, addaxes = TRUE, origin = c(0,0), 
    include.origin = TRUE, sub = "", csub = 1, possub = "bottomleft", 
    cgrid = 1, pixmap = NULL, contour = NULL, area = NULL, add.plot = FALSE)

Arguments

dfxy a data frame containing the two columns for the axes
fac a factor partitioning the rows of the data frame in classes
wt a vector of the point weightings of the data frame used for computing the means (star centers) and the ellipses of dispersion
xax the column number of x in dfxy
yax the column number of y in dfxy
cstar a number between 0 and 1 which defines the length of the star size
cellipse a positive coefficient for the inertia ellipse size
axesell a logical value indicating whether the ellipse axes should be drawn
label a vector of strings of characters for the point labels
clabel if not NULL, a character size for the labels, used with par("cex")*clabel
cpoint a character size for plotting the points, used with par("cex")*cpoint. If zero, no points are drawn
pch if cpoint > 0, an integer specifying the symbol or the single character to be used in plotting points
col a vector of colors used to draw each class in a different color
xlim the ranges to be encompassed by the x, if NULL they are computed
ylim the ranges to be encompassed by the y, if NULL they are computed
grid a logical value indicating whether a grid in the background of the plot should be drawn
addaxes a logical value indicating whether the axes should be plotted
origin the fixed point in the graph space, for example c(0,0) the origin axes
include.origin a logical value indicating whether the point "origin" should be belonged to the graph space
sub a string of characters to be inserted as legend
csub a character size for the legend, used with par("cex")*csub
possub a string of characters indicating the sub-title position ("topleft", "topright", "bottomleft", "bottomright")
cgrid a character size, parameter used with par("cex")* cgrid to indicate the mesh of the grid
pixmap an object 'pixmap' displayed in the map background
contour a data frame with 4 columns to plot the contour of the map : each row gives a segment (x1,y1,x2,y2)
area a data frame of class 'area' to plot a set of surface units in contour
add.plot if TRUE uses the current graphics window

Value

The matched call.

Author(s)

Daniel Chessel

Examples

xy <- cbind.data.frame(x = runif(200,-1,1), y = runif(200,-1,1))
posi <- factor(xy$x > 0) : factor(xy$y > 0)
coul <- c("black", "red", "green", "blue")
par(mfrow = c(2,2))
s.class(xy, posi, cpoi = 2)
s.class(xy, posi, cell = 0, cstar = 0.5)
s.class(xy, posi, cell = 2, axesell = FALSE, csta = 0, col = coul)
s.chull(xy, posi, cpoi = 1)
par(mfrow = c(1,1))

## Not run: 
data(banque)
dudi1 <- dudi.acm(banque, scannf = FALSE)
coul = rainbow(length(levels(banque[,20])))
par(mfrow = c(2,2))
s.label(dudi1$li, sub = "Factorial map from ACM", csub = 1.5, 
    possub = "topleft")
s.class(dudi1$li, banque[,20], sub = names(banque)[20], 
    possub = "bottomright", cell = 0, cstar = 0.5, cgrid = 0, csub = 1.5)
s.class(dudi1$li, banque[,20], csta = 0, cell = 2, cgrid = 0, 
    clab = 1.5)
s.class(dudi1$li, banque[,20], sub = names(banque)[20], 
    possub = "topright", cgrid = 0, col = coul)
par(mfrow = c(1,1))

par(mfrow = n2mfrow(ncol(banque)))
for (i in 1:(ncol(banque)))
    s.class(dudi1$li, banque[,i], clab = 1.5, sub = names(banque)[i], 
    csub = 2, possub = "topleft", cgrid = 0, csta = 0, cpoi = 0)
s.label(dudi1$li, clab = 0, sub = "Common background")
par(mfrow = c(1,1))

## End(Not run)

Worked out examples


> library(ade4)
> ### Name: s.class
> ### Title: Plot of factorial maps with representation of point classes
> ### Aliases: s.class
> ### Keywords: multivariate hplot
> 
> ### ** Examples
> 
> xy <- cbind.data.frame(x = runif(200,-1,1), y = runif(200,-1,1))
> posi <- factor(xy$x > 0) : factor(xy$y > 0)
> coul <- c("black", "red", "green", "blue")
> par(mfrow = c(2,2))
> s.class(xy, posi, cpoi = 2)
> s.class(xy, posi, cell = 0, cstar = 0.5)
> s.class(xy, posi, cell = 2, axesell = FALSE, csta = 0, col = coul)
> s.chull(xy, posi, cpoi = 1)
> par(mfrow = c(1,1))
> 
> data(banque)
> dudi1 <- dudi.acm(banque, scannf = FALSE)
> coul = rainbow(length(levels(banque[,20])))
> par(mfrow = c(2,2))
> s.label(dudi1$li, sub = "Factorial map from ACM", csub = 1.5, 
+     possub = "topleft")
> s.class(dudi1$li, banque[,20], sub = names(banque)[20], 
+     possub = "bottomright", cell = 0, cstar = 0.5, cgrid = 0, csub = 1.5)
> s.class(dudi1$li, banque[,20], csta = 0, cell = 2, cgrid = 0, 
+     clab = 1.5)
> s.class(dudi1$li, banque[,20], sub = names(banque)[20], 
+     possub = "topright", cgrid = 0, col = coul)
> par(mfrow = c(1,1))
> 
> par(mfrow = n2mfrow(ncol(banque)))
> for (i in 1:(ncol(banque)))
+     s.class(dudi1$li, banque[,i], clab = 1.5, sub = names(banque)[i], 
+     csub = 2, possub = "topleft", cgrid = 0, csta = 0, cpoi = 0)
> s.label(dudi1$li, clab = 0, sub = "Common background")
> par(mfrow = c(1,1))
> 
> 
> 
> 

[Package ade4 Index]