ggadd_ellipses: Adds concentration ellipses to a MCA cloud of individuals

Description

Adds concentration ellipses for a categorical variable to a MCA cloud of individuals, using the ggplot2 framework.

Usage

ggadd_ellipses(p, resmca, var, sel=1:nlevels(var), axes=c(1,2),
label=TRUE, col=NULL, legend='right', level=0.86, alpha=0.5)

Arguments

ggplot object with the cloud of variables

resmca

object of class 'MCA', 'speMCA' or 'csMCA'.

var

Factor. The categorical variable used to plot ellipses.

sel

numeric vector of indexes of the categories to plot (by default, ellipses are plotted for every categories)

axes

numeric vector of length 2, specifying the components (axes) to plot. Default is c(1,2).

label

Logical. Should the labels of teh categories be plotted at the center of ellipses ? Default is TRUE.

col

Colors for the ellipses and labels of the categories. Can be the name of a palette from the RcolorBrewer package, 'bw' for a black and white palette (uses scale_color_grey()), a character vector of colors for a custom palette, or the name of a color for a single color. If NULL (default), the default palette of ggplot2 is used.

legend

the position of legends ("none", "left", "right", "bottom", "top", or two-element numeric vector). Default is right.

level

The level at which to draw an ellipse (see stat_ellipse). Default is 0.86.

alpha

Transparency of the points of individuals. Default is 0.5.

Value

a ggplot object

References

Le Roux B. and Rouanet H., Multiple Correspondence Analysis, SAGE, Series: Quantitative Applications in the Social Sciences, Volume 163, CA:Thousand Oaks (2010).

Le Roux B. and Rouanet H., Geometric Data Analysis: From Correspondence Analysis to Stuctured Data Analysis, Kluwer Academic Publishers, Dordrecht (June 2004).

Examples

Run this code

# NOT RUN {
## Performs a specific MCA on 'Music' example data set
## ignoring every 'NA' (i.e. 'not available') categories,
## draws the cloud of categories
## and adds concentration ellipses for Age.
data(Music)
getindexcat(Music[,1:5])
mca <- speMCA(Music[,1:5],excl=c(3,6,9,12,15))
p <- ggcloud_indiv(mca, col='lightgrey')
ggadd_supvar(p, mca, Music$Age)
# }

Run the code above in your browser using DataCamp Workspace