L’analyse factorielle
Une lecture très simple
Bac / Etudes 1984
Tableau valeurs observées
Tableau des écarts à l’indépendance
Script R
k2 <- chisq.test (data)
k2
k2$observed
k2$expected
k2$residual
400 x 300 / 1000 = 120
Pour aller plus loin : https://cibois.pagesperso-orange.fr/PrincipeAnalyseFactorielle.pdf
Tableau valeurs d’indépendance
ou valeurs attendues
Script R
k2 <- chisq.test (data)
k2
k2$observed
k2$expected
k2$residual
Pour aller plus loin : https://cibois.pagesperso-orange.fr/PrincipeAnalyseFactorielle.pdf
5000 x 2000 / 10000 = 1000
Technique
Technique
Sciences
Economique et social
Lettres
Sortie graphique de l’AFC avec explor
Réaliser l’ACM avec FactoMinR
Réaliser la sortie avec explor
library(explor)
explor::explor(res)
L’importance des points selon la contribution
AIU - ACM
Réaliser l’ACM avec FactoMinR
Réaliser la sortie avec R
explor::explor(res)
Télécharger la base des instituteurs de l’AIU (format xlsx)
AIU - ACM
Effectifs
Réaliser l’ACM avec FactoMinR
Réaliser la sortie avec R
explor::explor(res)
Télécharger la base des instituteurs de l’AIU (format xlsx)
AIU - ACM
Contributions
Réaliser l’ACM avec FactoMinR
Réaliser la sortie avec R
explor::explor(res)
Télécharger la base des instituteurs de l’AIU (format xlsx)
AIU - ACM
Cos²
Réaliser l’ACM avec FactoMinR
Réaliser la sortie avec R
explor::explor(res)
Télécharger la base des instituteurs de l’AIU (format xlsx)
La contribution
La représentativité
Cos2
Télécharger les Packages (la première fois uniquement)
install.packages('gplots')
install.packages('Rcmdr',dependencies = TRUE)
install.packages('FactoMineR')
install.packages('RcmdrPlugin.FactoMineR')
install.packages(c("Factoshiny","missMDA","FactoInvestigate","RColorBrewer"))
install.packages('epitools')
install.packages('prettyR')
install.packages('explor')
install.packages('gplots')
install.packages('factoextra')
install.packages('ade4')
install.packages('ClustGeo')
Installer les Packages (à chaque ouverture de R)
library(gplots)
library(Rcmdr)
library(FactoMineR)
library(RColorBrewer)
library(factoextra)
library(ade4)
library(Factoshiny)
library(ClustGeo)
library(epitools)
library(explor)
Charger R Commander (Rcmdr)
library(Rcmdr)
library(FactoMineR)
Charger l’extension (Plug-ins) FactoMinR
Importer un fichier excel
Pour une AFC, il faut importer un tableau croisé et non la table des données !!
L’AFC (tableau croisé) (base de données)
Si les données sont déjà un tableau croisé
# faire un tableau croisé à partir d’une BD
# Convertir les données en tant que tableau
table(b[,1] , b[,2])->t
head(t)
data
L’AFC library("FactoMineR") library("Rcmdr")
data(t)
head(t)
k2 <- chisq.test (t)
k2
res <- CA (t, graph = FALSE)
summary(res)
print (res) # donne la valeur du Chi2