RVAideMemoire (version 0.9-45-2)

s.corcircle2: Plot of the factorial maps of a correlation circle

Description

Performs the scatter diagram of a correlation circle. The function is a copy of s.corcircle including 6 new arguments: boxes, arrows, col, lwd and cpoint.

Usage

s.corcircle2(dfxy, xax = 1, yax = 2, label = row.names(df), 
  clabel = 1, grid = TRUE, sub = "", csub = 1, possub = "bottomleft",
  cgrid = 0, fullcircle = TRUE, box = FALSE, add.plot = FALSE,
  circle = TRUE, boxes = FALSE, arrows = TRUE, col = "black", lwd = 1,
  cpoint = 0.8)

Arguments

dfxy

a data frame with two coordinates.

xax

the column number for the x-axis (horizontal).

yax

the column number for the y-axis (vertical).

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. Can be a unique value or one value per label.

grid

a logical value indicating whether a grid in the background of the plot should be drawn.

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.

fullcircle

a logical value indicating whether the complete circle sould be drawn.

box

a logical value indicating whether a box should be drawn.

add.plot

if TRUE uses the current graphics window.

circle

a logical value indicating whether the circle should be drawn.

boxes

a logical value indicating whether a box should be drawn around labels.

arrows

a logical value indicating whether arrows should be drawn (if FALSE, points are displayed).

col

a vector of colors (unique value or one value per arrow).

lwd

a vector of line widths (unique value or one value per arrow).

cpoint

a vector of point sizes (unique value or one value per arrow).

See Also

s.corcircle

Examples

require(ade4)
data(olympic)

pca <- dudi.pca(olympic$tab,scannf=FALSE,nf=2)
col <- c("red","red","blue","grey","red","red","blue","grey","blue","grey")
s.corcircle2(pca$co,col=col)