data(DataFreq) # frequency data set
data <- DataFreq[,2:ncol(DataFreq)]
rownames(data) <- DataFreq[1:nrow(DataFreq),1]
res <- CA(data, "f") # performs CA
tit <- c("Scree-plot","Observations", "Variables", "Observations / Variables")
Plot.CA(res, titles = tit, xlabel = NA, ylabel = NA, axes = TRUE,
color = TRUE, linlab = rownames(data), savptc = FALSE,
width = 3236, height = 2000, res = 300, casc = FALSE)
data(DataQuali) # qualitative data set
data <- DataQuali[,2:ncol(DataQuali)]
res <- CA(data, "c", "b") # performs CA
tit <- c("","","Graph of the variables")
Plot.CA(res, titles = tit, xlabel = NA, ylabel = NA,
color = TRUE, linlab = NA, savptc = FALSE,
width = 3236, height = 2000, res = 300,
axes = TRUE, casc = FALSE)
Run the code above in your browser using DataLab