ggadd_density: Density plot of a supplementary variable

In GDAtools: Geometric Data Analysis

Density plot of a supplementary variable

Description

For a given category of a supplementary variable, adds a layer representing the density of points to the cloud of individuals, either with contours or areas.

Usage

ggadd_density(p, resmca, var, cat = levels(var)[1], axes = c(1,2),
density = "contour", col.contour = "darkred", pal.area = "viridis",
alpha.area = 0.2, ellipse = FALSE)

Arguments

p	ggplot2 object with the cloud of variables
resmca	object of class MCA, speMCA, csMCA, stMCA or multiMCA
var	factor or numerical vector. The supplementary variable to be plotted.
cat	character string. The category of var to plot (by default, the first level of var is plotted). Only used if var is a factor.
axes	numeric vector of length 2, specifying the components (axes) to plot. Default is c(1,2).
density	If "contour" (default), density is plotted with contours. If "area", density is plotted with areas.
col.contour	character string. The color of the contours.
pal.area	character string. The name of a viridis palette for areas.
alpha.area	numeric. Transparency of the areas. Default is 0.2.
ellipse	logical. If TRUE, a concentration ellipse is added.

Value

a ggplot2 object

Author(s)

Nicolas Robette

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

See Also

ggcloud_indiv, ggadd_supvar, ggadd_supvars, ggadd_kellipses, ggadd_ellipses, ggadd_interaction, ggsmoothed_supvar, ggadd_chulls, ggadd_corr

Examples

# specific MCA of Taste example data set
data(Taste)
junk <- c("FrenchPop.NA", "Rap.NA", "Rock.NA", "Jazz.NA", "Classical.NA",
          "Comedy.NA", "Crime.NA", "Animation.NA", "SciFi.NA", "Love.NA", 
          "Musical.NA")
mca <- speMCA(Taste[,1:11], excl = junk)
p <- ggcloud_indiv(mca, col='lightgrey')
# density plot for Age = 50+ (with contours)
ggadd_density(p, mca, var = Taste$Age, cat = "50+")
# density plot for Age = 50+ (with contours)
ggadd_density(p, mca, var = Taste$Age, cat = "50+", density = "area")

GDAtools documentation built on Oct. 6, 2023, 5:07 p.m.