In krisrs1128/mvarVis: Visualize multivariate analysis results.

library("mvarVis")
library("ade4")

pca

data(deug)
deug_pca <- ordi(deug$tab, method = "ade4_pca", scannf = F)
plot_mvar(deug_pca, "point")
plot_mvar(deug_pca, "point-text-arrow")

acm

data(banque)
banque_acm <- ordi(banque[, -c(1:4)], rows_annot = banque[, 1:4],  method = "acm", scannf = F)
plot_mvar(banque_acm, col = "age")

coa

data(bordeaux)
bordeaux_coa <- ordi(bordeaux, method = "coa", scannf = F)
plot_mvar(bordeaux_coa, "text")

fpca

data(bsetal97)
w <- prep.fuzzy.var(bsetal97$biol, bsetal97$biol.blo)
bsetal_fpca <- ordi(w, method = "fpca", rows_annot = data.frame(species = bsetal97$species.names), scannf = F)
plot_mvar(bsetal_fpca, "point-text", label = "species")

hillsmith

data(dunedata)
attributes(dunedata$envir$use)$class <- "factor"
dunedata_hillsmith <- ordi(dunedata$envir, method = "hillsmith", rows_annot = dunedata$veg, scannf = F)
plot_mvar(dunedata_hillsmith, "point-text", col = "Ach.mil", size = 3)

mix

data(dunedata)
dunedata_mix <- ordi(dunedata$envir, method = "mix", rows_annot = dunedata$veg, scannf = F)
plot_mvar(dunedata_mix, "point-text-arrow", col = "Ach.mil", size = 3)

nsc

data(housetasks)
housetasks_nsc <- ordi(housetasks, method = "nsc", scannf = F)
plot_mvar(housetasks_nsc, "text")

procustes

data(macaca)
macaca_procuste <- ordi(macaca, method = "procuste")
plot_mvar(macaca_procuste, "text")

coinertia

data(doubs)
doubs_coin <- ordi(list(doubs$env, doubs$fish), method = "coinertia", scannf = F)
plot_mvar(doubs_coin, "text")

krisrs1128/mvarVis documentation built on Oct. 13, 2019, 11:14 p.m.