{"id":7365,"date":"2026-09-16T19:45:41","date_gmt":"2026-09-16T19:45:41","guid":{"rendered":"http:\/\/french.arabpsychology.com\/statistics\/comment-creer-un-scree-plot-dans-r-etape-par-etape\/"},"modified":"2026-09-16T19:45:45","modified_gmt":"2026-09-16T19:45:45","slug":"comment-creer-un-scree-plot-dans-r-etape-par-etape","status":"publish","type":"psych_stat","link":"https:\/\/french.arabpsychology.com\/?psych_stat=comment-creer-un-scree-plot-dans-r-etape-par-etape","title":{"rendered":"Comment cr\u00e9er un scree plot dans R (\u00e9tape par \u00e9tape)"},"content":{"rendered":"<p>L&rsquo;analyse des donn\u00e9es multivari\u00e9es et la psychom\u00e9trie quantitative contemporaine reposent de mani\u00e8re fondamentale sur la r\u00e9duction de dimensionnalit\u00e9. Face \u00e0 des batteries d&rsquo;instruments composites, des inventaires de personnalit\u00e9 comptant des dizaines d&rsquo;items ou des jeux de donn\u00e9es socio-\u00e9conomiques complexes, le statisticien et le chercheur en sciences sociales sont confront\u00e9s au fl\u00e9au de la dimensionnalit\u00e9. Cette prolif\u00e9ration de variables observables rend ardue la d\u00e9tection des structures sous-jacentes, augmente consid\u00e9rablement le risque d&rsquo;erreur de type I par multiplication des tests d&rsquo;hypoth\u00e8ses, et obscurcit la lisibilit\u00e9 th\u00e9orique des mod\u00e8les psychologiques. L&rsquo;Analyse en Composantes Principales (ACP) et l&rsquo;Analyse Factorielle Exploratoire (AFE) constituent les deux piliers historiques permettant de condenser cette information brute en un nombre restreint de dimensions synth\u00e9tiques, tout en pr\u00e9servant la part maximale de variance informative.<\/p>\n<p>Au c\u0153ur de cette d\u00e9marche d&rsquo;extraction se pose une question m\u00e9thodologique critique : combien de dimensions latentes ou de composantes principales convient-il de retenir sans sombrer dans l&rsquo;\u00e9cueil de la sur-extraction ou de la sous-extraction ? C&rsquo;est pr\u00e9cis\u00e9ment pour r\u00e9pondre \u00e0 cette interrogation cardinale que Raymond Cattell a conceptualis\u00e9 en 1966 le graphique des \u00e9boulis, universellement d\u00e9sign\u00e9 sous le terme anglo-saxon de *scree plot*. Outil diagnostique visuel par excellence, le scree plot projette la d\u00e9croissance monotone des valeurs propres associ\u00e9es \u00e0 chaque dimension successive, offrant \u00e0 l&rsquo;analyste un panorama g\u00e9om\u00e9trique de la d\u00e9perdition d&rsquo;inertie au sein du nuage de points multidimensionnel.<\/p>\n<p>L&rsquo;environnement statistique R s&rsquo;affirme aujourd&rsquo;hui comme la plateforme de r\u00e9f\u00e9rence pour impl\u00e9menter ces protocoles exploratoires, combinant une puissance algorithmique de pointe pour la d\u00e9composition matricielle et une flexibilit\u00e9 graphique in\u00e9gal\u00e9e. Ce guide exhaustif a pour vocation de d\u00e9composer pas \u00e0 pas, avec la plus haute rigueur th\u00e9orique et pratique, l&rsquo;ensemble du cycle de conception, d&rsquo;optimisation et d&rsquo;interpr\u00e9tation d&rsquo;un scree plot sous R. Depuis les fondements de l&rsquo;alg\u00e8bre lin\u00e9aire spectrale jusqu&rsquo;aux raffinements typographiques conformes aux normes acad\u00e9miques internationales de l&rsquo;American Psychological Association (APA), chaque \u00e9tape est diss\u00e9qu\u00e9e afin de doter le praticien des comp\u00e9tences n\u00e9cessaires \u00e0 une prise de d\u00e9cision statistique irr\u00e9prochable.<\/p>\n<h2>1. Fondements th\u00e9oriques de l&rsquo;analyse en composantes principales et du scree plot<\/h2>\n<h3>1.1 R\u00e9duction de dimensionnalit\u00e9 et applications en psychom\u00e9trie<\/h3>\n<p>La r\u00e9duction de dimensionnalit\u00e9 en psychom\u00e9trie r\u00e9pond \u00e0 un imp\u00e9ratif fondamental d&rsquo;\u00e9conomie cognitive et de parcimonie math\u00e9matique. Lorsqu&rsquo;un chercheur administre une \u00e9chelle d&rsquo;\u00e9valuation comportementale, un test d&rsquo;efficience intellectuelle ou un inventaire de personnalit\u00e9 tel que le mod\u00e8le en cinq facteurs (NEO-PI-R), il recueille des dizaines, voire des centaines de r\u00e9ponses discr\u00e8tes. Ces indicateurs manifestes ne constituent pas la finalit\u00e9 de la mesure ; ils fonctionnent plut\u00f4t comme les reflets imparfaits de construits psychologiques inobservables, couramment d\u00e9nomm\u00e9s variables latentes ou traits th\u00e9oriques. Le passage de l&rsquo;espace multidimensionnel des variables observables \u00e0 un sous-espace vectoriel de dimension r\u00e9duite permet de capturer l&rsquo;essence de ces entit\u00e9s conceptuelles tout en \u00e9liminant le bruit stochastique inh\u00e9rent \u00e0 la mesure psychologique.<\/p>\n<p>Sur le plan math\u00e9matique, cette transition implique une condensation de l&rsquo;information o\u00f9 les vecteurs initiaux, fortement intercorr\u00e9l\u00e9s, sont combin\u00e9s lin\u00e9airement pour former de nouveaux axes orthogonaux ou obliques. Toutefois, cette condensation s&rsquo;accompagne in\u00e9vitablement d&rsquo;une perte r\u00e9siduelle de variance. Le postulat th\u00e9orique de l&rsquo;analyse multivari\u00e9e repose sur l&rsquo;hypoth\u00e8se que la variance partag\u00e9e entre les items refl\u00e8te le signal psychologique stable, tandis que la variance r\u00e9siduelle non captur\u00e9e par les premi\u00e8res dimensions correspond \u00e0 de l&rsquo;erreur de mesure al\u00e9atoire ou \u00e0 de la sp\u00e9cificit\u00e9 sans pertinence structurale. Ainsi, l&rsquo;analyse dimensionnelle appliqu\u00e9e aux questionnaires et inventaires vise \u00e0 maximiser le rapport entre la variance syst\u00e9matique expliqu\u00e9e et la parcimonie du mod\u00e8le dimensionnel final.<\/p>\n<p>Dans cette perspective, les travaux pionniers de <a rel=\"noopener noreferrer\" href=\"https:\/\/www.jstor.org\/stable\/1167435\">Charles Spearman<\/a> sur le facteur g\u00e9n\u00e9ral d&rsquo;intelligence et les d\u00e9veloppements ult\u00e9rieurs de Louis Leon Thurstone sur les aptitudes mentales primaires ont d\u00e9montr\u00e9 que la simplification g\u00e9om\u00e9trique d&rsquo;un hyperespace de donn\u00e9es psychom\u00e9triques permet de valider empiriquement la validit\u00e9 de construit d&rsquo;un instrument. Une r\u00e9duction dimensionnelle convenablement men\u00e9e permet d&rsquo;attester qu&rsquo;un ensemble de quarante items converge effectivement vers trois ou cinq dimensions cliniquement interpr\u00e9tables, facilitant la notation diagnostique et consolidant les propri\u00e9t\u00e9s psychom\u00e9triques globales de l&rsquo;\u00e9chelle d&rsquo;\u00e9valuation.<\/p>\n<h3>1.2 D\u00e9finition et gen\u00e8se du graphique des \u00e9boulis (scree plot de Cattell)<\/h3>\n<p>Le graphique des \u00e9boulis a \u00e9t\u00e9 introduit dans la litt\u00e9rature m\u00e9thodologique par le psychologue et statisticien <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1207\/s15327906mbr0102_10\">Raymond B. Cattell en 1966<\/a>, au sein d&rsquo;un article s\u00e9minal publi\u00e9 dans la revue <em>Multivariate Behavioral Research<\/em>. Cattell cherchait \u00e0 substituer aux crit\u00e8res purement alg\u00e9briques arbitraires une heuristique visuelle intuitive capable de distinguer les facteurs substantiels des facteurs r\u00e9siduels non significatifs. Le terme \u00ab scree \u00bb puise son origine dans la g\u00e9ologie g\u00e9omorphologique : il d\u00e9signe l&rsquo;amas de d\u00e9bris rocheux, de cailloux et de gravats qui s&rsquo;accumule par gravit\u00e9 au pied d&rsquo;une falaise abrupte ou d&rsquo;un versant montagneux escarp\u00e9.<\/p>\n<p>Dans la m\u00e9taphore g\u00e9ologique de Cattell, la falaise rocheuse verticale repr\u00e9sente les facteurs ou composantes majeures qui concentrent l&rsquo;essentiel de la variance explicative du syst\u00e8me. \u00c0 l&rsquo;inverse, l&rsquo;\u00e9boulis \u00e9tal\u00e9 au pied du pr\u00e9cipice symbolise la multitude de petites composantes d&rsquo;amplitudes comparables, qui ne refl\u00e8tent que des fluctuations d&rsquo;\u00e9chantillonnage et du bruit r\u00e9siduel insignifiant. Graphiquement, le scree plot se pr\u00e9sente sous la forme d&rsquo;un trac\u00e9 cart\u00e9sien en deux dimensions o\u00f9 l&rsquo;axe des abscisses \u00e9num\u00e8re s\u00e9quentiellement les composantes extraites, ordonn\u00e9es de la plus importante \u00e0 la plus faible, tandis que l&rsquo;axe des ordonn\u00e9es affiche la valeur propre (eigenvalue) associ\u00e9e \u00e0 chacune d&rsquo;elles.<\/p>\n<p>Le r\u00f4le pivot de ce dispositif r\u00e9side dans l&rsquo;identification du \u00ab point d&rsquo;inflexion \u00bb ou \u00ab coude \u00bb g\u00e9om\u00e9trique (*elbow*), c&rsquo;est-\u00e0-dire l&rsquo;endroit pr\u00e9cis o\u00f9 la trajectoire de d\u00e9crue brutale s&rsquo;infl\u00e9chit pour se muer en une droite sub-horizontale r\u00e9guli\u00e8re. Selon la r\u00e8gle heuristique de Cattell, toutes les composantes situ\u00e9es en amont de ce point d&rsquo;inflexion appartiennent \u00e0 la falaise et doivent \u00eatre rigoureusement conserv\u00e9es dans le mod\u00e8le dimensionnel. Celles situ\u00e9es \u00e0 partir du coude et le long de la pente r\u00e9siduelle forment l&rsquo;\u00e9boulis rocheux et doivent \u00eatre rejet\u00e9es, signifiant ainsi l&rsquo;arr\u00eat de l&rsquo;extraction factorielle.<\/p>\n<h3>1.3 Propri\u00e9t\u00e9s math\u00e9matiques des valeurs propres et de la variance expliqu\u00e9e<\/h3>\n<p>D&rsquo;un point de vue alg\u00e9brique rigoureux, l&rsquo;Analyse en Composantes Principales op\u00e8re une transformation lin\u00e9aire orthogonale qui convertit un ensemble d&rsquo;observations corr\u00e9l\u00e9es en un ensemble de variables non corr\u00e9l\u00e9es appel\u00e9es composantes principales. Ce processus \u00e9quivaut \u00e0 la d\u00e9composition spectrale de la matrice d&rsquo;inertie des donn\u00e9es, qu&rsquo;il s&rsquo;agisse de la matrice de variance-covariance <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{\\Sigma}\">$\\mathbf{\\Sigma}$<\/span> ou de la matrice de corr\u00e9lation lin\u00e9aire de Pearson <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{R}\">$\\mathbf{R}$<\/span>. La r\u00e9solution de l&rsquo;\u00e9quation caract\u00e9ristique <span class=\"arabpsy-math-inline\" data-latex=\"det(\\mathbf{R} - \\lambda \\mathbf{I}) = 0\">$det(\\mathbf{R} &#8211; \\lambda \\mathbf{I}) = 0$<\/span> fournit un ensemble de racines scalaires r\u00e9elles <span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_1 ge \\lambda_2 ge dots ge \\lambda_p ge 0\">$\\lambda_1 ge \\lambda_2 ge dots ge \\lambda_p ge 0$<\/span>, d\u00e9sign\u00e9es sous le vocable de valeurs propres (*eigenvalues*).<\/p>\n<p>Chaque valeur propre <span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_i\">$\\lambda_i$<\/span> quantifie de mani\u00e8re exacte la quantit\u00e9 absolue de variance captur\u00e9e par le vecteur propre unitaire <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{v}_i\">$\\mathbf{v}_i$<\/span> qui lui est associ\u00e9 le long du <span class=\"arabpsy-math-inline\" data-latex=\"i\">$i$<\/span>-\u00e8me axe principal. Lorsque l&rsquo;analyse est effectu\u00e9e sur une matrice de corr\u00e9lation, les variables d&rsquo;origine sont pr\u00e9alablement centr\u00e9es et r\u00e9duites, ce qui implique que la variance unitaire de chaque item est strictement \u00e9gale \u00e0 1. En vertu de la propri\u00e9t\u00e9 spectrale fondamentale de conservation de la trace matricielle, la somme de toutes les valeurs propres extraites \u00e9quivaut rigoureusement \u00e0 la trace de la matrice initiale, laquelle co\u00efncide avec le nombre total de variables observables <span class=\"arabpsy-math-inline\" data-latex=\"p\">$p$<\/span> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\sum_{i=1}^p \\lambda_i = \\mathrm{Tr}(\\mathbf{R}) = p\">$$\\sum_{i=1}^p \\lambda_i = \\mathrm{Tr}(\\mathbf{R}) = p$$<\/span><\/p>\n<p>Cette propri\u00e9t\u00e9 d&rsquo;additivit\u00e9 totale conf\u00e8re une signification probabiliste imm\u00e9diate \u00e0 chaque dimension. La proportion relative de variance totale expliqu\u00e9e par la <span class=\"arabpsy-math-inline\" data-latex=\"i\">$i$<\/span>-\u00e8me composante principale s&rsquo;\u00e9tablit simplement par le ratio <span class=\"arabpsy-math-inline\" data-latex=\"(\\lambda_i \/ p) \\times 100\">$(\\lambda_i \/ p) \\times 100$<\/span>. D\u00e8s lors, le trac\u00e9 du scree plot ne constitue rien d&rsquo;autre que la projection discr\u00e8te de la distribution spectrale de l&rsquo;op\u00e9rateur lin\u00e9aire d&rsquo;inertie. La d\u00e9croissance monotone stricte des valeurs propres refl\u00e8te le principe de maximisation s\u00e9quentielle de la variance sous contrainte d&rsquo;orthogonalit\u00e9 bilat\u00e9rale (<span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{v}_j^T \\mathbf{v}_k = 0\">$\\mathbf{v}_j^T \\mathbf{v}_k = 0$<\/span> pour <span class=\"arabpsy-math-inline\" data-latex=\"j \\neq k\">$j \\neq k$<\/span>), garantissant que la premi\u00e8re composante mobilise le maximum d&rsquo;inertie globale possible, suivie par la deuxi\u00e8me composante sur le sous-espace r\u00e9siduel orthogonal, et ainsi de suite jusqu&rsquo;\u00e0 \u00e9puisement du rang matriciel.<\/p>\n<h2>2. Pr\u00e9paration de l&rsquo;environnement de travail et structuration des donn\u00e9es sous R<\/h2>\n<h3>2.1 Installation et chargement des biblioth\u00e8ques fondamentales<\/h3>\n<p>L&rsquo;impl\u00e9mentation d&rsquo;un flux de travail reproductible et moderne sous R exige la mise en place pr\u00e9alable d&rsquo;un \u00e9cosyst\u00e8me logiciel coh\u00e9rent. Bien que les fonctions int\u00e9gr\u00e9es dans l&rsquo;installation de base de R permettent de mener \u00e0 bien une analyse spectrale compl\u00e8te, le recours aux packages contemporains du <code>tidyverse<\/code> pour la manipulation tabulaire et la visualisation vectorielle s&rsquo;impose comme le standard de facto dans la recherche quantitative contemporaine. Parall\u00e8lement, des extensions sp\u00e9cialis\u00e9es d\u00e9di\u00e9es \u00e0 la psychom\u00e9trie et \u00e0 la fouille de donn\u00e9es multivari\u00e9es, \u00e0 l&rsquo;instar de <code>psych<\/code> et de <code>factoextra<\/code>, offrent des fonctionnalit\u00e9s d&rsquo;automatisation avanc\u00e9es indispensables pour consolider les diagnostics.<\/p>\n<p>Le chercheur proc\u00e9dera en premier lieu \u00e0 la v\u00e9rification de l&rsquo;\u00e9tat de son environnement logiciel et \u00e0 l&rsquo;installation ordonn\u00e9e des modules requis. Cette proc\u00e9dure s&rsquo;ex\u00e9cute via la commande <code>install.packages()<\/code>, en veillant \u00e0 inclure la gestion syst\u00e9matique des d\u00e9pendances syst\u00e8me n\u00e9cessaires au rendu graphique haute d\u00e9finition. Afin d&rsquo;assurer une parfaite tra\u00e7abilit\u00e9 des analyses et la reproductibilit\u00e9 computationnelle stricte des proc\u00e9dures stochastiques ult\u00e9rieures (notamment pour l&rsquo;analyse parall\u00e8le de Monte-Carlo), il est imp\u00e9ratif d&rsquo;initialiser le g\u00e9n\u00e9rateur de nombres pseudo-al\u00e9atoires \u00e0 l&rsquo;aide de la fonction <code>set.seed()<\/code> d\u00e8s le d\u00e9but du script.<\/p>\n<p>L&rsquo;ex\u00e9cution dans la console R du bloc d&rsquo;instructions suivant garantit l&rsquo;armature logicielle compl\u00e8te :<\/p>\n<p><code>packages_requis &lt;- c(\"tidyverse\", \"psych\", \"factoextra\", \"cowplot\", \"ggrepel\")<\/code><br \/>\n<code>nouveaux_packages &lt;- packages_requis[!(packages_requis %in% installed.packages()[,\"Package\"])]<\/code><br \/>\n<code>if(length(nouveaux_packages)) install.packages(nouveaux_packages, dependencies = TRUE)<\/code><br \/>\n<code>library(tidyverse)<\/code><br \/>\n<code>library(psych)<\/code><br \/>\n<code>library(factoextra)<\/code><br \/>\n<code>set.seed(42)<\/code><\/p>\n<p>Cette routine d&rsquo;initialisation stabilise l&rsquo;espace de noms de la session active, \u00e9liminant les conflits d&rsquo;ombrage de fonctions entre le moteur de base et les biblioth\u00e8ques tierces, tout en configurant un environnement propice \u00e0 l&rsquo;\u00e9dition de graphiques vectoriels de publication.<\/p>\n<h3>2.2 Importation et examen pr\u00e9liminaire des donn\u00e9es (USArrests et alternatives psychom\u00e9triques)<\/h3>\n<p>Pour illustrer la m\u00e9canique fondamentale de l&rsquo;ACP et la construction du scree plot sans introduire de biais d&rsquo;acc\u00e8s aux donn\u00e9es, le jeu de donn\u00e9es classique <code>USArrests<\/code>, nativement pr\u00e9charg\u00e9 dans R, constitue un mod\u00e8le p\u00e9dagogique id\u00e9al. Ce corpus documente les taux d&rsquo;arrestations pour crimes violents (homicide, agression, viol) pour 100 000 habitants ainsi que le pourcentage de population r\u00e9sidant en zone urbaine \u00e0 travers les cinquante \u00c9tats am\u00e9ricains en 1973. Bien qu&rsquo;issu de la criminologie \u00e9cologique, sa structure quantitative \u00e0 quatre variables continues fortement corr\u00e9l\u00e9es pr\u00e9sente une homologie parfaite avec les probl\u00e9matiques de condensation de sous-\u00e9chelles rencontr\u00e9es dans les batteries de tests psychologiques comportementaux.<\/p>\n<p>L&rsquo;importation et l&rsquo;inspection g\u00e9om\u00e9trique pr\u00e9liminaire de l&rsquo;\u00e9chantillon sont d\u00e9clench\u00e9es \u00e0 l&rsquo;aide des primitives R standards. La fonction <code>data(USArrests)<\/code> charge le tableau dans l&rsquo;espace m\u00e9moire, tandis que les fonctions <code>dim()<\/code>, <code>str()<\/code> et <code>summary()<\/code> permettent d&rsquo;auditer l&rsquo;architecture matricielle, le typage des colonnes et les descripteurs univari\u00e9s de tendance centrale et de dispersion :<\/p>\n<p><code>data(\"USArrests\")<\/code><br \/>\n<code>dim(USArrests)<\/code><br \/>\n<code>str(USArrests)<\/code><br \/>\n<code>summary(USArrests)<\/code><\/p>\n<p>L&rsquo;inspection minutieuse de la sortie r\u00e9v\u00e8le cinquante observations r\u00e9parties sur quatre dimensions num\u00e9riques continues : <code>Murder<\/code>, <code>Assault<\/code>, <code>UrbanPop<\/code> et <code>Rape<\/code>. L&rsquo;examen des minima, maxima et \u00e9carts-types fait imm\u00e9diatement \u00e9merger une asym\u00e9trie d&rsquo;\u00e9chelle consid\u00e9rable : la variable <code>Assault<\/code> culmine \u00e0 une moyenne de 170,8 avec un \u00e9cart-type sup\u00e9rieur \u00e0 80, alors que <code>Murder<\/code> affiche une moyenne de 7,8 pour un \u00e9cart-type de 4,3. En psychom\u00e9trie, cette h\u00e9t\u00e9rog\u00e9n\u00e9it\u00e9 se rencontre typiquement lorsque l&rsquo;on fusionne des temps de r\u00e9action mesur\u00e9s en millisecondes avec des scores d&rsquo;items de type Likert gradu\u00e9s de 1 \u00e0 5, configuration pathog\u00e8ne qui impose imp\u00e9rativement un traitement pr\u00e9paratoire rigoureux sous peine d&rsquo;invalider totalement la d\u00e9composition spectrale ult\u00e9rieure.<\/p>\n<h3>2.3 D\u00e9tection des valeurs aberrantes et imputation des donn\u00e9es manquantes<\/h3>\n<p>L&rsquo;analyse dimensionnelle lin\u00e9aire repose de mani\u00e8re critique sur l&rsquo;estimation de la matrice des moments d&rsquo;ordre deux (covariances ou corr\u00e9lations). Il est largement d\u00e9montr\u00e9 dans la litt\u00e9rature statistique que les coefficients de corr\u00e9lation produit-moment de Pearson pr\u00e9sentent une vuln\u00e9rabilit\u00e9 extr\u00eame aux observations aberrantes (*outliers*), qu&rsquo;elles soient univari\u00e9es ou multivari\u00e9es. Un point unique situ\u00e9 aux confins de l&rsquo;espace multidimensionnel peut exercer un bras de levier disproportionn\u00e9 sur les axes factoriels, cr\u00e9ant artificiellement des composantes fallacieuses ou masquant des structures sous-jacentes authentiques.<\/p>\n<p>Le diagnostic des donn\u00e9es manquantes constitue la premi\u00e8re \u00e9tape de cette v\u00e9rification. Si le jeu <code>USArrests<\/code> pr\u00e9sente un taux de compl\u00e9tude de 100 %, les jeux de donn\u00e9es psychom\u00e9triques r\u00e9els comportent fr\u00e9quemment des omissions syst\u00e9matiques. La cartographie des patterns d&rsquo;absence (MCAR, MAR, MNAR) via le package <code>mice<\/code> ou la fonction <code>md.pattern()<\/code> permet de s\u00e9lectionner la m\u00e9thode d&rsquo;imputation idoine. L&rsquo;imputation stochastique par \u00e9quations cha\u00een\u00e9es (MICE) ou l&rsquo;algorithme EM (Expectation-Maximization) s&rsquo;av\u00e8rent infiniment sup\u00e9rieurs \u00e0 l&rsquo;\u00e9limination cas par cas (*listwise deletion*), laquelle d\u00e9grade drastiquement la puissance statistique et fausse la structure de covariance lorsque les omissions ne sont pas purement al\u00e9atoires.<\/p>\n<p>Pour le rep\u00e9rage des valeurs aberrantes multivari\u00e9es, la m\u00e9trique de r\u00e9f\u00e9rence est la distance quadratique de <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/BF02884144\">Mahalanobis<\/a>, not\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"D^2\">$D^2$<\/span>. Elle mesure la divergence relative de chaque individu statistique par rapport au centro\u00efde du nuage de points, en pond\u00e9rant les \u00e9carts par l&rsquo;inverse de la matrice de covariance de l&rsquo;\u00e9chantillon :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"D^2 = (\\mathbf{x} - \\bar{\\mathbf{x}})^T \\mathbf{S}^{-1} (\\mathbf{x} - \\bar{\\mathbf{x}})\">$$D^2 = (\\mathbf{x} &#8211; \\bar{\\mathbf{x}})^T \\mathbf{S}^{-1} (\\mathbf{x} &#8211; \\bar{\\mathbf{x}})$$<\/span><\/p>\n<p>Sous l&rsquo;hypoth\u00e8se de normalit\u00e9 multivari\u00e9e, <span class=\"arabpsy-math-inline\" data-latex=\"D^2\">$D^2$<\/span> suit approximativement une distribution du Khi-deux dont les degr\u00e9s de libert\u00e9 correspondent au nombre de variables <span class=\"arabpsy-math-inline\" data-latex=\"p\">$p$<\/span>. Le code R suivant calcule ces distances et identifie les profils extr\u00eames au seuil critique <span class=\"arabpsy-math-inline\" data-latex=\"\\alpha = 0,001\">$\\alpha = 0,001$<\/span> :<\/p>\n<p><code>centroide &lt;- colMeans(USArrests)<\/code><br \/>\n<code>matrice_cov &lt;- cov(USArrests)<\/code><br \/>\n<code>d2_mahalanobis &lt;- mahalanobis(USArrests, center = centroide, cov = matrice_cov)<\/code><br \/>\n<code>seuil_critique &lt;- qchisq(p = 0.999, df = ncol(USArrests))<\/code><br \/>\n<code>outliers_multivaries &lt;- which(d2_mahalanobis &gt; seuil_critique)<\/code><\/p>\n<p>Si des observations franchissent ce seuil de tol\u00e9rance, leur exclusion temporaire ou une analyse de sensibilit\u00e9 comparative est requise afin de certifier que la structure des valeurs propres visualis\u00e9e sur le scree plot refl\u00e8te une propri\u00e9t\u00e9 populationnelle robuste et non l&rsquo;idiosyncrasie de quelques unit\u00e9s d&rsquo;\u00e9chantillonnage marginales.<\/p>\n<h2>3. Pr\u00e9traitement rigoureux : Centrage, r\u00e9duction et diagnostic de corr\u00e9lation<\/h2>\n<h3>3.1 Justification psychom\u00e9trique de la standardisation des variables<\/h3>\n<p>La question de la standardisation des variables en amont d&rsquo;une ACP touche \u00e0 l&rsquo;essence m\u00eame de la signification g\u00e9om\u00e9trique de l&rsquo;espace m\u00e9trique utilis\u00e9. Si l&rsquo;on applique l&rsquo;analyse directement sur la matrice de variance-covariance brute <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{\\Sigma}\">$\\mathbf{\\Sigma}$<\/span>, la variance absolue d&rsquo;une variable devient le crit\u00e8re premier guidant l&rsquo;orientation des axes factoriels. Or, la variance d&rsquo;une s\u00e9rie statistique d\u00e9pend directement de son unit\u00e9 de mesure arbitraire. Dans un questionnaire psychom\u00e9trique composite combinant des scores globaux (dont la variance peut atteindre plusieurs centaines d&rsquo;unit\u00e9s) et des temps de latence ou des taux d&rsquo;erreurs normalis\u00e9s (dont la variance est inf\u00e9rieure \u00e0 1), la premi\u00e8re composante principale sera m\u00e9caniquement captur\u00e9e par la variable poss\u00e9dant la plus grande magnitude num\u00e9rique, occultant totalement les covariations subtiles entre les autres descripteurs.<\/p>\n<p>Le centrage des variables, obtenu par la soustraction de l&rsquo;esp\u00e9rance empirique (<span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{x}_j - \\bar{x}_j\">$\\mathbf{x}_j &#8211; \\bar{x}_j$<\/span>), r\u00e9alise une translation du nuage de points permettant d&rsquo;aligner le centro\u00efde des donn\u00e9es sur l&rsquo;origine du syst\u00e8me de coordonn\u00e9es cart\u00e9siennes <span class=\"arabpsy-math-inline\" data-latex=\"(0,0,dots,0)\">$(0,0,dots,0)$<\/span>. Cette \u00e9tape pr\u00e9liminaire est universelle car elle garantit que la premi\u00e8re composante traversera le barycentre du nuage d&rsquo;observations. La r\u00e9duction, quant \u00e0 elle, op\u00e8re une division de chaque score centr\u00e9 par l&rsquo;\u00e9cart-type de la variable (<span class=\"arabpsy-math-inline\" data-latex=\"s_j\">$s_j$<\/span>), transformant les mesures h\u00e9t\u00e9rog\u00e8nes en scores centr\u00e9s-r\u00e9duits standardis\u00e9s (<span class=\"arabpsy-math-inline\" data-latex=\"z\">$z$<\/span>-scores) de variance strictement unitaire (<span class=\"arabpsy-math-inline\" data-latex=\"s^2_z = 1\">$s^2_z = 1$<\/span>).<\/p>\n<p>Op\u00e9rer une ACP sur des donn\u00e9es centr\u00e9es et r\u00e9duites \u00e9quivaut strictement \u00e0 ex\u00e9cuter la d\u00e9composition spectrale sur la matrice de corr\u00e9lation lin\u00e9aire <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{R}\">$\\mathbf{R}$<\/span> au lieu de la matrice de covariance brute <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{\\Sigma}\">$\\mathbf{\\Sigma}$<\/span>. En psychom\u00e9trie appliqu\u00e9e, l&rsquo;analyse sur matrice de corr\u00e9lation est quasi-syst\u00e9matiquement requise, sauf dans les contextes rares o\u00f9 toutes les variables partagent une m\u00e9trique physique rigoureusement identique et o\u00f9 les diff\u00e9rentiels de dispersion brute poss\u00e8dent une interpr\u00e9tation clinique intrins\u00e8que d\u00e9lib\u00e9r\u00e9ment recherch\u00e9e par le chercheur.<\/p>\n<h3>3.2 Param\u00e9trage de la normalisation sous R avec scale()<\/h3>\n<p>Dans l&rsquo;environnement R, la standardisation matricielle s&rsquo;effectue avec une efficacit\u00e9 remarquable gr\u00e2ce \u00e0 la fonction vectoris\u00e9e primitive <code>scale()<\/code>. Cette primitive accepte en argument principal un objet de type tableau ou matrice et dispose de deux arguments logiques d\u00e9terminants : <code>center<\/code> et <code>scale<\/code>. Par d\u00e9faut, ces deux arguments sont positionn\u00e9s sur <code>TRUE<\/code>, ce qui garantit simultan\u00e9ment la translation \u00e0 la moyenne nulle et la mise \u00e0 l&rsquo;\u00e9chelle sur l&rsquo;\u00e9cart-type d&rsquo;\u00e9chantillon unitaire selon la formule <span class=\"arabpsy-math-inline\" data-latex=\"z_{ij} = (x_{ij} - \\bar{x}_j) \/ s_j\">$z_{ij} = (x_{ij} &#8211; \\bar{x}_j) \/ s_j$<\/span>.<\/p>\n<p>Il demeure fondamental d&rsquo;examiner explicitement les matrices d\u00e9riv\u00e9es avant de proc\u00e9der \u00e0 l&rsquo;extraction factorielle, comme l&rsquo;illustre la s\u00e9quence de code ci-dessous :<\/p>\n<p><code>donnees_standardisees &lt;- scale(USArrests, center = TRUE, scale = TRUE)<\/code><br \/>\n<code>colMeans(donnees_standardisees)<\/code><br \/>\n<code>apply(donnees_standardisees, 2, sd)<\/code><br \/>\n<code>matrice_correlation &lt;- cor(donnees_standardisees)<\/code><br \/>\n<code>print(round(matrice_correlation, 3))<\/code><\/p>\n<p>La validation empirique montre des moyennes r\u00e9siduelles d&rsquo;ordre infinit\u00e9simal (<span class=\"arabpsy-math-inline\" data-latex=\"10^{-16}\">$10^{-16}$<\/span>, correspondant au z\u00e9ro machine) et des \u00e9carts-types rigoureusement \u00e9gaux \u00e0 1. La matrice de corr\u00e9lation qui en d\u00e9coule permet d&rsquo;\u00e9valuer la colin\u00e9arit\u00e9 globale du syst\u00e8me. Avant d&rsquo;engager une r\u00e9duction de dimension, il est imp\u00e9ratif de confirmer que les donn\u00e9es exhibent une corr\u00e9lation suffisante pour justifier une synth\u00e8se vectorielle. Deux m\u00e9triques psychom\u00e9triques sont ici irrempla\u00e7ables : l&rsquo;indice de Kaiser-Meyer-Olkin (KMO), qui \u00e9value l&rsquo;ad\u00e9quation de l&rsquo;\u00e9chantillonnage, et le test de sph\u00e9ricit\u00e9 de Bartlett, qui teste l&rsquo;hypoth\u00e8se nulle d&rsquo;orthogonalit\u00e9 stricte de la matrice (<span class=\"arabpsy-math-inline\" data-latex=\"H_0: \\mathbf{R} = \\mathbf{I}\">$H_0: \\mathbf{R} = \\mathbf{I}$<\/span>).<\/p>\n<p>\u00c0 l&rsquo;aide du package <code>psych<\/code>, cette v\u00e9rification pr\u00e9liminaire s&rsquo;ex\u00e9cute imm\u00e9diatement :<\/p>\n<p><code>kmo_result &lt;- KMO(donnees_standardisees)<\/code><br \/>\n<code>bartlett_result &lt;- cortest.bartlett(donnees_standardisees, n = nrow(USArrests))<\/code><\/p>\n<p>Un indice KMO global sup\u00e9rieur au seuil heuristique de 0,60 combin\u00e9 \u00e0 un test de Bartlett statistiquement hautement significatif (<span class=\"arabpsy-math-inline\" data-latex=\"p &lt; 0,001\">$p &lt; 0,001$<\/span>) confirment sans ambigu\u00eft\u00e9 que la structure de d\u00e9pendance lin\u00e9aire est propice \u00e0 une d\u00e9composition spectrale informative.<\/p>\n<h3>3.3 Effets du d\u00e9faut de mise \u00e0 l&rsquo;\u00e9chelle sur la d\u00e9composition spectrale<\/h3>\n<p>Pour appr\u00e9hender concr\u00e8tement la vuln\u00e9rabilit\u00e9 math\u00e9matique d&rsquo;une ACP non standardis\u00e9e, il est particuli\u00e8rement instructif de comparer le comportement des valeurs propres extraites avec et sans r\u00e9duction pr\u00e9alable sur le jeu de donn\u00e9es <code>USArrests<\/code>. Si l&rsquo;on omet l&rsquo;\u00e9tape de r\u00e9duction en travaillant directement sur la matrice de covariance brute, la variance ph\u00e9nom\u00e9nale de la variable <code>Assault<\/code> (variance empirique de $6945,1$) va phagocyter la quasi-totalit\u00e9 de l&rsquo;inertie globale du syst\u00e8me multidimensionnel.<\/p>\n<p>L&rsquo;ex\u00e9cution comparative sous R met en lumi\u00e8re cette aberration structurelle :<\/p>\n<p><code>pca_brute &lt;- prcomp(USArrests, center = TRUE, scale. = FALSE)<\/code><br \/>\n<code>pca_reduite &lt;- prcomp(USArrests, center = TRUE, scale. = TRUE)<\/code><br \/>\n<code>pca_brute<span class=\"arabpsy-math-inline\" data-latex=\"sdev^2 \/ \\sum(pca_brute\">$sdev^2 \/ \\sum(pca_brute$<\/span>sdev^2) * 100<\/code><br \/>\n<code>pca_reduite<span class=\"arabpsy-math-inline\" data-latex=\"sdev^2 \/ \\sum(pca_reduite\">$sdev^2 \/ \\sum(pca_reduite$<\/span>sdev^2) * 100<\/code><\/p>\n<p>Dans l&rsquo;analyse brute non r\u00e9duite, la premi\u00e8re composante capture \u00e0 elle seule plus de 96,5 % de la variance totale du jeu de donn\u00e9es. La lecture du scree plot correspondant afficherait une chute vertigineuse entre la premi\u00e8re et la deuxi\u00e8me composante, cr\u00e9ant l&rsquo;illusion graphique absolue d&rsquo;un mod\u00e8le strictement unifactoriel. Or, cette premi\u00e8re dimension n&rsquo;est qu&rsquo;un clone d\u00e9guis\u00e9 de la variable <code>Assault<\/code> et ne renseigne en rien sur les corr\u00e9lations profondes reliant <code>Murder<\/code> et <code>Rape<\/code>.<\/p>\n<p>\u00c0 l&rsquo;inverse, l&rsquo;analyse men\u00e9e sur variables standardis\u00e9es redistribue \u00e9quitablement l&rsquo;influence de chaque variable unitaire. La premi\u00e8re composante capture environ 62 % de la variance totale et la seconde pr\u00e8s de 24,7 %, mettant en relief une structure bifactorielle riche et \u00e9quilibr\u00e9e, o\u00f9 la premi\u00e8re dimension regroupe les violences criminelles et la seconde rend compte de l&rsquo;urbanisation d\u00e9mographique. Le d\u00e9faut de standardisation engendre ainsi des pseudo-coudes d\u00e9vastateurs sur le scree plot, conduisant le chercheur \u00e0 sous-extraire dramatiquement et \u00e0 m\u00e9conna\u00eetre des traits psychologiques latents pourtant majeurs au sein de son instrument de mesure.<\/p>\n<h2>4. Ex\u00e9cution de l&rsquo;analyse en composantes principales avec prcomp()<\/h2>\n<h3>4.1 Fondements de la d\u00e9composition en valeurs singuli\u00e8res (SVD) dans prcomp()<\/h3>\n<p>Dans l&rsquo;\u00e9cosyst\u00e8me R, deux fonctions int\u00e9gr\u00e9es natives permettent d&rsquo;ex\u00e9cuter une ACP : <code>prcomp()<\/code> et <code>princomp()<\/code>. D&rsquo;un point de vue algorithmique et num\u00e9rique, <code>prcomp()<\/code> s&rsquo;impose sans contestation comme la fonction de r\u00e9f\u00e9rence absolue pr\u00e9conis\u00e9e par les statisticiens computationnels. La sup\u00e9riorit\u00e9 de <code>prcomp()<\/code> r\u00e9side dans le fait qu&rsquo;elle n&rsquo;op\u00e8re pas par diagonalisation explicite de la matrice de covariance ou de corr\u00e9lation, mais applique directement la D\u00e9composition en Valeurs Singuli\u00e8res (<a rel=\"noopener noreferrer\" href=\"https:\/\/mathworld.wolfram.com\/SingularValueDecomposition.html\">Singular Value Decomposition &#8211; SVD<\/a>) sur la matrice des donn\u00e9es centr\u00e9es et r\u00e9duites <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{Z}\">$\\mathbf{Z}$<\/span>.<\/p>\n<p>Le th\u00e9or\u00e8me fondamental de la SVD stipule que toute matrice rectangulaire r\u00e9elle <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{Z}\">$\\mathbf{Z}$<\/span> de dimensions <span class=\"arabpsy-math-inline\" data-latex=\"n \\times p\">$n \\times p$<\/span> peut \u00eatre factoris\u00e9e sous la forme du produit de trois matrices remarquables :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\mathbf{Z} = \\mathbf{U} \\mathbf{D} \\mathbf{V}^T\">$$\\mathbf{Z} = \\mathbf{U} \\mathbf{D} \\mathbf{V}^T$$<\/span><\/p>\n<p>Dans cette d\u00e9composition, <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{U}\">$\\mathbf{U}$<\/span> est une matrice orthogonale <span class=\"arabpsy-math-inline\" data-latex=\"n \\times p\">$n \\times p$<\/span> contenant les vecteurs singuliers gauches, <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{D}\">$\\mathbf{D}$<\/span> est une matrice diagonale <span class=\"arabpsy-math-inline\" data-latex=\"p \\times p\">$p \\times p$<\/span> renfermant les valeurs singuli\u00e8res ordonn\u00e9es <span class=\"arabpsy-math-inline\" data-latex=\"d_1 ge d_2 ge dots ge d_p ge 0\">$d_1 ge d_2 ge dots ge d_p ge 0$<\/span>, et <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{V}\">$\\mathbf{V}$<\/span> est une matrice orthogonale <span class=\"arabpsy-math-inline\" data-latex=\"p \\times p\">$p \\times p$<\/span> rassemblant les vecteurs singuliers droits. La pertinence de cette factorisation d\u00e9coule de la relation matricielle liant la matrice de covariance non biais\u00e9e \u00e0 la matrice <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{Z}\">$\\mathbf{Z}$<\/span> standardis\u00e9e :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\mathbf{R} = \\frac{1}{n - 1} \\mathbf{Z}^T \\mathbf{Z} = \\frac{1}{n - 1} \\mathbf{V} \\mathbf{D} \\mathbf{U}^T \\mathbf{U} \\mathbf{D} \\mathbf{V}^T = \\mathbf{V} \\left( \\frac{\\mathbf{D}^2}{n - 1} \\right) \\mathbf{V}^T\">$$\\mathbf{R} = \\frac{1}{n &#8211; 1} \\mathbf{Z}^T \\mathbf{Z} = \\frac{1}{n &#8211; 1} \\mathbf{V} \\mathbf{D} \\mathbf{U}^T \\mathbf{U} \\mathbf{D} \\mathbf{V}^T = \\mathbf{V} \\left( \\frac{\\mathbf{D}^2}{n &#8211; 1} \\right) \\mathbf{V}^T$$<\/span><\/p>\n<p>Les valeurs singuli\u00e8res <span class=\"arabpsy-math-inline\" data-latex=\"d_i\">$d_i$<\/span> sont donc directement proportionnelles aux \u00e9carts-types des composantes principales selon l&rsquo;\u00e9quivalence <span class=\"arabpsy-math-inline\" data-latex=\"sdev_i = d_i \/ \\sqrt{n - 1}\">$sdev_i = d_i \/ \\sqrt{n &#8211; 1}$<\/span>. L&rsquo;algorithme SVD \u00e9vite le calcul direct et potentiellement mal conditionn\u00e9 du produit matriciel <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{Z}^T \\mathbf{Z}\">$\\mathbf{Z}^T \\mathbf{Z}$<\/span>, garantissant ainsi une stabilit\u00e9 num\u00e9rique et une pr\u00e9cision en arithm\u00e9tique flottante infiniment sup\u00e9rieures, tout particuli\u00e8rement lorsque les variables affichent une multicolin\u00e9arit\u00e9 quasi-parfaite ou lorsque la matrice approche la singularit\u00e9.<\/p>\n<h3>4.2 Exploration des composantes de l&rsquo;objet g\u00e9n\u00e9r\u00e9 (sdev, rotation, x)<\/h3>\n<p>L&rsquo;ex\u00e9cution de la fonction <code>prcomp()<\/code> avec la syntaxe canonique produit un objet complexe de classe S3 dot\u00e9 de multiples attributs d\u00e9terminants :<\/p>\n<p><code>pca_arrests &lt;- prcomp(USArrests, center = TRUE, scale. = TRUE)<\/code><br \/>\n<code>names(pca_arrests)<\/code><br \/>\n<code>class(pca_arrests)<\/code><\/p>\n<p>L&rsquo;inspection de la structure r\u00e9v\u00e8le quatre composantes internes principales que le chercheur doit savoir interroger :<\/p>\n<ul>\n<li><strong>sdev<\/strong> : Un vecteur contenant les \u00e9carts-types des composantes principales successives. Ces valeurs correspondent exactement \u00e0 la racine carr\u00e9e des valeurs propres (<span class=\"arabpsy-math-inline\" data-latex=\"\\sqrt{\\lambda_i}\">$\\sqrt{\\lambda_i}$<\/span>). Elles quantifient la dispersion empirique de chaque nouvel axe factoriel.<\/li>\n<li><strong>rotation<\/strong> : La matrice carr\u00e9e <span class=\"arabpsy-math-inline\" data-latex=\"p \\times p\">$p \\times p$<\/span> des coefficients des vecteurs propres (loadings). Chaque colonne de cette matrice repr\u00e9sente la combinaison lin\u00e9aire unitaire permettant de projeter l&rsquo;espace originel vers la composante consid\u00e9r\u00e9e. Ces coefficients d\u00e9finissent l&rsquo;orientation spatiale de l&rsquo;axe et permettent de nommer conceptuellement les composantes.<\/li>\n<li><strong>x<\/strong> : La matrice <span class=\"arabpsy-math-inline\" data-latex=\"n \\times p\">$n \\times p$<\/span> des coordonn\u00e9es individuelles transform\u00e9es (les scores factoriels des individus). Elle consigne la projection des cinquante \u00c9tats am\u00e9ricains sur les nouveaux axes orthogonaux.<\/li>\n<li><strong>center<\/strong> et <strong>scale<\/strong> : Les vecteurs de constantes empiriques ayant servi respectivement \u00e0 la translation centrip\u00e8te et \u00e0 la r\u00e9duction unitaire des variables brutes.<\/li>\n<\/ul>\n<p>L&rsquo;orthogonalit\u00e9 parfaite des colonnes de <code>x<\/code> peut \u00eatre ais\u00e9ment v\u00e9rifi\u00e9e par l&rsquo;\u00e9valuation de la matrice de corr\u00e9lation empirique de ces projections, laquelle co\u00efncide \u00e0 la pr\u00e9cision machine pr\u00e8s avec la matrice identit\u00e9 <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{I}_p\">$\\mathbf{I}_p$<\/span> (corr\u00e9lations inter-axes strictement nulles). Cette ind\u00e9pendance mutuelle confirme la dissolution compl\u00e8te des redondances colin\u00e9aires de l&rsquo;espace initial.<\/p>\n<h3>4.3 Comparaison technique avec princomp() et alternatives factorielles<\/h3>\n<p>La fonction concurrente native <code>princomp()<\/code> utilise, pour sa part, la diagonalisation spectrale classique de la matrice de covariance via la primitive <code>eigen()<\/code>. Au-del\u00e0 de sa moindre stabilit\u00e9 num\u00e9rique en pr\u00e9sence de quasi-colin\u00e9arit\u00e9, <code>princomp()<\/code> applique conventionnellement un diviseur d&rsquo;\u00e9chantillon \u00e9gal \u00e0 <span class=\"arabpsy-math-inline\" data-latex=\"n\">$n$<\/span> (estimateur du maximum de vraisemblance) au lieu du diviseur standard sans biais <span class=\"arabpsy-math-inline\" data-latex=\"n - 1\">$n &#8211; 1$<\/span> privil\u00e9gi\u00e9 par <code>prcomp()<\/code> :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"\\mathrm{Var}_{\\text{princo\\mp}}(X) = \\frac{1}{n} \\sum (x_i - \\bar{x})^2 \\quad \\text{vs} \\quad \\mathrm{Var}_{\\text{prco\\mp}}(X) = \\frac{1}{n - 1} \\sum (x_i - \\bar{x})^2\">$$\\mathrm{Var}_{\\text{princo\\mp}}(X) = \\frac{1}{n} \\sum (x_i &#8211; \\bar{x})^2 \\quad \\text{vs} \\quad \\mathrm{Var}_{\\text{prco\\mp}}(X) = \\frac{1}{n &#8211; 1} \\sum (x_i &#8211; \\bar{x})^2$$<\/span><\/p>\n<p>Bien que cette divergence asymptotique s&rsquo;estompe pour de vastes cohortes statistiques, elle introduit de l\u00e9g\u00e8res discordances sur les valeurs propres dans les petits \u00e9chantillons psychom\u00e9triques (<span class=\"arabpsy-math-inline\" data-latex=\"N &lt; 100\">$N &lt; 100$<\/span>). En outre, <code>princomp()<\/code> refuse cat\u00e9goriquement d&rsquo;op\u00e9rer lorsque le nombre d&rsquo;individus <span class=\"arabpsy-math-inline\" data-latex=\"n\">$n$<\/span> est strictement inf\u00e9rieur au nombre d&rsquo;indicateurs <span class=\"arabpsy-math-inline\" data-latex=\"p\">$p$<\/span> (<span class=\"arabpsy-math-inline\" data-latex=\"n &lt; p\">$n &lt; p$<\/span>), situation o\u00f9 la matrice de covariance devient math\u00e9matiquement singuli\u00e8re, alors que <code>prcomp()<\/code> g\u00e8re cette configuration sans d\u00e9faillance algorithmique gr\u00e2ce \u00e0 la factorisation SVD tronqu\u00e9e.<\/p>\n<p>Enfin, il est imp\u00e9ratif de distinguer rigoureusement ces fonctions d&rsquo;ACP des primitives d&rsquo;Analyse Factorielle Exploratoire (AFE), \u00e0 l&rsquo;instar de <code>factanal()<\/code> ou de la fonction <code>fa()<\/code> du package <code>psych<\/code>. Alors que <code>prcomp()<\/code> analyse la variance totale (d\u00e9composition spectrale d&rsquo;une matrice \u00e0 diagonale unitaire), l&rsquo;AFE postule l&rsquo;existence d&rsquo;un mod\u00e8le d&rsquo;erreur de mesure formel et proc\u00e8de \u00e0 la d\u00e9composition spectrale de la matrice des corr\u00e9lations r\u00e9duites, o\u00f9 la diagonale principale est substitu\u00e9e par les communalit\u00e9s initiales (<span class=\"arabpsy-math-inline\" data-latex=\"h_i^2 &lt; 1\">$h_i^2 &lt; 1$<\/span>). Par voie de cons\u00e9quence, les valeurs propres g\u00e9n\u00e9r\u00e9es et report\u00e9es sur un scree plot ne partagent pas rigoureusement la m\u00eame \u00e9chelle selon qu&rsquo;il s&rsquo;agit d&rsquo;une ACP empirique ou d&rsquo;une analyse factorielle des facteurs communs.<\/p>\n<h2>5. Extraction et calcul des valeurs propres et de la variance expliqu\u00e9e<\/h2>\n<h3>5.1 Conversion des \u00e9carts-types en valeurs propres r\u00e9elles<\/h3>\n<p>L&rsquo;objet retourn\u00e9 par <code>prcomp()<\/code> ne stocke pas directement les valeurs propres sous leur d\u00e9signation usuelle, mais consigne leurs \u00e9carts-types associ\u00e9s dans le slot vectoriel <code>pca_arrests$sdev<\/code>. En vertu de la d\u00e9finition alg\u00e9brique rappel\u00e9e pr\u00e9c\u00e9demment, la variance captur\u00e9e par une composante orthogonale est le carr\u00e9 strict de son \u00e9cart-type (<span class=\"arabpsy-math-inline\" data-latex=\"\\mathrm{Var}(Y_i) = \\lambda_i = s_i^2\">$\\mathrm{Var}(Y_i) = \\lambda_i = s_i^2$<\/span>). L&rsquo;extraction computationnelle des valeurs propres r\u00e9elles r\u00e9clame donc une op\u00e9ration scalaire \u00e9l\u00e9mentaire d&rsquo;\u00e9l\u00e9vation \u00e0 la puissance 2 :<\/p>\n<p><code>valeurs_propres &lt;- pca_arrests$sdev^2<\/code><br \/>\n<code>print(valeurs_propres)<\/code><\/p>\n<p>L&rsquo;ex\u00e9cution de cette commande sur les donn\u00e9es standardis\u00e9es <code>USArrests<\/code> fournit les quatre valeurs propres exactes suivantes :<\/p>\n<ul>\n<li><span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_1 \\approx 2,4802\">$\\lambda_1 \\approx 2,4802$<\/span><\/li>\n<li><span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_2 \\approx 0,9898\">$\\lambda_2 \\approx 0,9898$<\/span><\/li>\n<li><span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_3 \\approx 0,3566\">$\\lambda_3 \\approx 0,3566$<\/span><\/li>\n<li><span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_4 \\approx 0,1734\">$\\lambda_4 \\approx 0,1734$<\/span><\/li>\n<\/ul>\n<p>Le contr\u00f4le d&rsquo;int\u00e9grit\u00e9 num\u00e9rique s&rsquo;op\u00e8re instantan\u00e9ment en v\u00e9rifiant la conservation de la trace matricielle. Puisque quatre variables centr\u00e9es et r\u00e9duites ont \u00e9t\u00e9 inject\u00e9es dans l&rsquo;algorithme, la somme des composantes de ce vecteur doit \u00e9galer rigoureusement 4 :<\/p>\n<p><code>sum(valeurs_propres)<\/code><\/p>\n<p>Le syst\u00e8me confirme un total arithm\u00e9tique de 4, validant l&rsquo;absence de d\u00e9rive computationnelle et certifiant que la totalit\u00e9 de la variance du syst\u00e8me d&rsquo;observation est int\u00e9gralement partitionn\u00e9e entre ces quatre dimensions orthogonales.<\/p>\n<h3>5.2 Calcul de la proportion individuelle et cumulative de variance<\/h3>\n<p>Une fois les valeurs propres isol\u00e9es, il convient de quantifier la part relative de variance unitaire que chaque composante parvient \u00e0 r\u00e9sumer, ainsi que la progression de l&rsquo;inertie cumul\u00e9e au fur et \u00e0 mesure de l&rsquo;adjonction de nouvelles dimensions. La variance relative simple s&rsquo;obtient en divisant chaque valeur propre individuelle par la somme globale des valeurs propres, le tout multipli\u00e9 par cent pour une lecture en pourcentage direct :<\/p>\n<p><span class=\"arabpsy-math-display\" data-latex=\"% \\text{ Variance}_i = \\left( \\frac{\\lambda_i}{\\sum_{k=1}^p \\lambda_k} \\right) \\times 100\">$$% \\text{ Variance}_i = \\left( \\frac{\\lambda_i}{\\sum_{k=1}^p \\lambda_k} \\right) \\times 100$$<\/span><\/p>\n<p>La variance cumul\u00e9e, indispensable pour situer le pouvoir d&rsquo;explication global d&rsquo;un mod\u00e8le tronqu\u00e9, s&rsquo;obtient \u00e9l\u00e9gamment par l&rsquo;application de la fonction primitive <code>cumsum()<\/code> sur le vecteur des proportions de variance :<\/p>\n<p><code>variance_expliquee &lt;- (valeurs_propres \/ sum(valeurs_propres)) * 100<\/code><br \/>\n<code>variance_cumulee &lt;- cumsum(variance_expliquee)<\/code><br \/>\n<code>tableau_synthese &lt;- data.frame(Composante = 1:length(valeurs_propres), Valeur_Propre = valeurs_propres, Proportion_Variance = variance_expliquee, Cumul_Variance = variance_cumulee)<\/code><br \/>\n<code>print(round(tableau_synthese, 2))<\/code><\/p>\n<p>L&rsquo;observation du tableau g\u00e9n\u00e9r\u00e9 d\u00e9montre que la premi\u00e8re composante capture 62,01 % de la variance globale, la seconde 24,74 %, la troisi\u00e8me 8,91 % et la quatri\u00e8me 4,34 %. La solution retenant conjointement les deux premi\u00e8res composantes accumule ainsi 86,75 % de l&rsquo;inertie globale totale. En recherche psychologique et comportementale, o\u00f9 la fid\u00e9lit\u00e9 des mesures oscille fr\u00e9quemment entre 0,70 et 0,85 en raison des erreurs de r\u00e9ponse subjectives, un mod\u00e8le factoriel pr\u00e9servant plus de 70 \u00e0 80 % de la variance totale est g\u00e9n\u00e9ralement consid\u00e9r\u00e9 comme structurellement tr\u00e8s performant.<\/p>\n<h3>5.3 Structuration d&rsquo;un data frame d\u00e9di\u00e9 \u00e0 la visualisation<\/h3>\n<p>L&rsquo;exploitation de moteurs graphiques vectoriels modernes comme <code>ggplot2<\/code> requiert la conversion syst\u00e9matique des structures de donn\u00e9es brutes en un tableau de donn\u00e9es rectangulaire (*data frame* ou *tibble*) respectant scrupuleusement les principes du *tidy data*. Dans cette organisation, chaque ligne repr\u00e9sente une entit\u00e9 dimensionnelle unique et chaque colonne d\u00e9signe une propri\u00e9t\u00e9 g\u00e9om\u00e9trique ou descriptive associ\u00e9e.<\/p>\n<p>Le bloc de programmation R ci-dessous formalise cette matrice de visualisation pr\u00eate pour le rendu graphique :<\/p>\n<p><code>scree_data &lt;- tibble(<\/code><br \/>\n<code>  Composante = factor(1:length(valeurs_propres), levels = 1:length(valeurs_propres)),<\/code><br \/>\n<code>  Comp_Num = 1:length(valeurs_propres),<\/code><br \/>\n<code>  Valeur_Propre = valeurs_propres,<\/code><br \/>\n<code>  Variance_Pct = variance_expliquee,<\/code><br \/>\n<code>  Variance_Cum = variance_cumulee<\/code><br \/>\n<code>)<\/code><br \/>\n<code>str(scree_data)<\/code><\/p>\n<p>Il est critique de typer la variable <code>Composante<\/code> sous la forme d&rsquo;un facteur ordonn\u00e9 discret tout en conservant une variable num\u00e9rique continue parall\u00e8le <code>Comp_Num<\/code>. Cette double indexation permettra ult\u00e9rieurement d&rsquo;associer un trac\u00e9 par barres discr\u00e8tes (qui n\u00e9cessite une cat\u00e9gorisation nominale sur l&rsquo;axe horizontal) et un trac\u00e9 de r\u00e9gression continu ou bris\u00e9 (qui exige des coordonn\u00e9es cart\u00e9siennes continues continues pour l&rsquo;application des couches g\u00e9om\u00e9triques de liaison lin\u00e9aire). Ce tableau servira de matrice d&rsquo;alimentation unifi\u00e9e pour toutes les visualisations subs\u00e9quentes.<\/p>\n<h2>6. Construction d&rsquo;un scree plot avec le moteur graphique de base de R<\/h2>\n<h3>6.1 Trac\u00e9 direct via la m\u00e9thode plot.prcomp()<\/h3>\n<p>Le syst\u00e8me de base de R int\u00e8gre un m\u00e9canisme d&rsquo;orientation objet S3 qui permet d&rsquo;appeler directement la fonction g\u00e9n\u00e9rique <code>plot()<\/code> sur un objet issu de <code>prcomp()<\/code>. Dans ce sc\u00e9nario, R d\u00e9l\u00e8gue implicitement le calcul \u00e0 la m\u00e9thode interne <code>plot.prcomp()<\/code>, laquelle g\u00e9n\u00e8re automatiquement un diagramme par barres de l&rsquo;inertie des composantes :<\/p>\n<p><code>plot(pca_arrests)<\/code><\/p>\n<p>Par d\u00e9faut, cette instruction primitive affiche un histogramme o\u00f9 la hauteur de chaque rectangle est index\u00e9e sur la valeur propre sous-jacente. L&rsquo;utilisateur peut contraindre la m\u00e9thode \u00e0 afficher un trac\u00e9 continu par points et segments lin\u00e9aires \u00e0 l&rsquo;aide de l&rsquo;argument <code>type = \"lines\"<\/code> :<\/p>\n<p><code>plot(pca_arrests, type = \"lines\", main = \"Scree Plot \u00c9l\u00e9mentaire (Base R)\")<\/code><\/p>\n<p>Bien que cette commande s&rsquo;av\u00e8re pratique lors des phases pr\u00e9liminaires d&rsquo;exploration rapide interactive au sein de la console R, elle se r\u00e9v\u00e8le rapidement inadapt\u00e9e pour une diss\u00e9mination scientifique formalis\u00e9e. La m\u00e9thode native n&rsquo;autorise qu&rsquo;un contr\u00f4le rudimentaire de la disposition des axes, ne propose aucune annotation dynamique des pourcentages de variance, tronque fr\u00e9quemment les labels de texte marginaux et ne permet pas d&rsquo;int\u00e9grer avec pr\u00e9cision les lignes de d\u00e9marcation critiques indispensables \u00e0 l&rsquo;analyse diagnostique acad\u00e9mique.<\/p>\n<h3>6.2 Personnalisation int\u00e9grale avec plot(), lines() et points()<\/h3>\n<p>Pour s&rsquo;affranchir des limitations du trac\u00e9 pr\u00e9configur\u00e9 sans faire appel \u00e0 des d\u00e9pendances tierces, le moteur graphique de base permet d&rsquo;\u00e9difier un scree plot personnalis\u00e9 haute d\u00e9finition en superposant m\u00e9thodiquement diff\u00e9rentes strates graphiques primitives. La construction d\u00e9bute par l&rsquo;initialisation de la toile cart\u00e9sienne via <code>plot()<\/code> configur\u00e9e avec <code>type = \"n\"<\/code> (afin d&rsquo;\u00e9viter tout dessin par d\u00e9faut), ce qui autorise un calibrage microm\u00e9trique des \u00e9tendues d&rsquo;axes <code>xlim<\/code> et <code>ylim<\/code> :<\/p>\n<p><code>par(mar = c(5, 5, 4, 2) + 0.1, las = 1)<\/code><br \/>\n<code>plot(scree_data<span class=\"arabpsy-math-inline\" data-latex=\"Co\\mp_Num, scree_data\">$Co\\mp_Num, scree_data$<\/span>Valeur_Propre,<\/code><br \/>\n<code>     type = \"b\", pch = 19, cex = 1.4, lwd = 2, col = \"navy\",<\/code><br \/>\n<code>     xlab = \"Num\u00e9ro de la composante principale\",<\/code><br \/>\n<code>     ylab = \"Valeur propre (Variance expliqu\u00e9e)\",<\/code><br \/>\n<code>     main = \"Diagramme des \u00e9boulis de Cattell - USArrests\",<\/code><br \/>\n<code>     xaxt = \"n\", ylim = c(0, 3), panel.first = grid(nx = NULL, ny = NULL, col = \"gray90\", lty = 1))<\/code><br \/>\n<code>axis(side = 1, at = 1:4, labels = paste0(\"PC\", 1:4))<\/code><\/p>\n<p>La commande <code>type = \"b\"<\/code> force le dessin simultan\u00e9 des marqueurs circulaires pleins (<code>pch = 19<\/code>) et des segments de liaison inter-points (<code>lwd = 2<\/code>). L&rsquo;extinction pr\u00e9alable de l&rsquo;axe des abscisses par <code>xaxt = \"n\"<\/code> permet de r\u00e9implanter manuellement des graduations discr\u00e8tes explicites (<code>axis()<\/code>) \u00e9vitant l&rsquo;affichage de valeurs d\u00e9cimales absurdes comme des demi-composantes (par exemple 1,5 ou 2,5). L&rsquo;argument <code>panel.first<\/code> assure que la grille d&rsquo;alignement est imprim\u00e9e sous les trac\u00e9s statistiques et non par-dessus, pr\u00e9servant la nettet\u00e9 des vecteurs.<\/p>\n<h3>6.3 Annotation visuelle du seuil critique et habillage typographique<\/h3>\n<p>Un scree plot ne se limite pas \u00e0 un profil g\u00e9om\u00e9trique ; il constitue un dispositif d&rsquo;aide \u00e0 la d\u00e9cision statistique. Pour remplir pleinement sa mission diagnostique, il doit mat\u00e9rialiser les seuils d\u00e9cisionnels usuels. Le rep\u00e8re th\u00e9orique majeur est le seuil de Kaiser-Guttman, qui correspond \u00e0 une valeur propre \u00e9gale \u00e0 1. Dans le moteur de base de R, ce seuil s&rsquo;implante via la primitive d&rsquo;adjonction lin\u00e9aire <code>abline()<\/code> :<\/p>\n<p><code>abline(h = 1, col = \"firebrick\", lty = 2, lwd = 2)<\/code><\/p>\n<p>Pour finaliser l&rsquo;habillage acad\u00e9mique, il est pertinent d&rsquo;adosser des \u00e9tiquettes textuelles pr\u00e9cises directement sur le trac\u00e9 afin d&rsquo;\u00e9viter au lecteur d&rsquo;extrapoler visuellement les grandeurs \u00e0 partir des axes. La fonction primitive <code>text()<\/code> remplit cette fonction d&rsquo;ancrage cart\u00e9sien en exploitant les coordonn\u00e9es r\u00e9elles de chaque point :<\/p>\n<p><code>text(x = scree_data<span class=\"arabpsy-math-inline\" data-latex=\"Co\\mp_Num, y = scree_data\">$Co\\mp_Num, y = scree_data$<\/span>Valeur_Propre + 0.15,<\/code><br \/>\n<code>     labels = paste0(round(scree_data<span class=\"arabpsy-math-inline\" data-latex=\"Valeur_Propre, 2), &quot; (&quot;, round(scree_data\">$Valeur_Propre, 2), \" (\", round(scree_data$<\/span>Variance_Pct, 1), \"%)\"),<\/code><br \/>\n<code>     cex = 0.85, font = 2, col = \"navy\")<\/code><br \/>\n<code>legend(\"topright\", legend = c(\"Profil d'\u00e9boulis (prcomp)\", \"Crit\u00e8re de Kaiser (lambda = 1)\"),<\/code><br \/>\n<code>       col = c(\"navy\", \"firebrick\"), lty = c(1, 2), pch = c(19, NA), lwd = 2, bty = \"n\")<\/code><\/p>\n<p>L&rsquo;adjonction de la l\u00e9gende via <code>legend()<\/code> avec l&rsquo;option <code>bty = \"n\"<\/code> \u00e9limine les contours encombrants, aboutissant \u00e0 une figure cart\u00e9sienne claire o\u00f9 la premi\u00e8re composante surpasse largement la d\u00e9marcation rouge, la seconde fr\u00f4le l&rsquo;\u00e9quilibre unitaire, et les deux derni\u00e8res s&rsquo;enfoncent profond\u00e9ment dans la zone de rejet r\u00e9siduel.<\/p>\n<h2>7. \u00c9laboration d&rsquo;un scree plot moderne et publication-ready avec ggplot2<\/h2>\n<h3>7.1 Mise en place de la structure g\u00e9om\u00e9trique \u00e9l\u00e9mentaire<\/h3>\n<p>Le package <code>ggplot2<\/code>, fond\u00e9 sur les principes th\u00e9oriques de la grammaire des graphiques formul\u00e9s par Leland Wilkinson, offre un niveau de contr\u00f4le esth\u00e9tique et de composition structurelle in\u00e9gal\u00e9. Pour \u00e9laborer un scree plot moderne de niveau professionnel, la meilleure approche consiste \u00e0 associer en un trac\u00e9 composite une repr\u00e9sentation discr\u00e8te de la variance par composante sous forme d&rsquo;histogramme, et le profil de d\u00e9crue sous forme de ligne bris\u00e9e parsem\u00e9e de marqueurs nodaux.<\/p>\n<p>Cette composition repose sur l&rsquo;appel initial \u00e0 <code>ggplot()<\/code>, suivi de l&#8217;empilement syst\u00e9matique des couches g\u00e9om\u00e9triques de base :<\/p>\n<p><code>p_base &lt;- ggplot(scree_data, aes(x = Comp_Num, y = Valeur_Propre)) +<\/code><br \/>\n<code>  geom_bar(stat = \"identity\", fill = \"steelblue\", alpha = 0.6, width = 0.5) +<\/code><br \/>\n<code>  geom_line(color = \"darkblue\", size = 1.1) +<\/code><br \/>\n<code>  geom_point(color = \"darkblue\", size = 3.5, shape = 21, fill = \"white\", stroke = 1.5) +<\/code><br \/>\n<code>  scale_x_continuous(breaks = scree_data<span class=\"arabpsy-math-inline\" data-latex=\"Co\\mp_Num, labels = paste0(&quot;PC&quot;, scree_data\">$Co\\mp_Num, labels = paste0(\"PC\", scree_data$<\/span>Comp_Num)) +<\/code><br \/>\n<code>  labs(x = \"Composante Principale\", y = \"Valeur Propre (Eigenvalue)\")<\/code><\/p>\n<p>Dans cette architecture, <code>geom_bar(stat = \"identity\")<\/code> mat\u00e9rialise l&rsquo;importance absolue de chaque composante par un volume vertical discret \u00e0 semi-transparence variable (<code>alpha = 0.6<\/code>). Simultan\u00e9ment, la combinaison synchronis\u00e9e de <code>geom_line()<\/code> et <code>geom_point()<\/code> superpose la trajectoire de d\u00e9clin continue de Cattell. L&rsquo;assignation de disques \u00e9vid\u00e9s (<code>shape = 21<\/code>) bord\u00e9s de bleu fonc\u00e9 et garnis d&rsquo;un c\u0153ur blanc garantit une perception visuelle optimale en attirant l&rsquo;attention de l&rsquo;\u0153il sur chaque intersection spectrale discr\u00e8te.<\/p>\n<figure class=\"wpt-preserved-image\"><img fetchpriority=\"high\" decoding=\"async\" src=\"http:\/\/french.arabpsychology.com\/wp-content\/uploads\/2026\/09\/screeR1.png\" alt=\"Scree plot in R\" \/><figcaption>Scree plot in R<\/figcaption><\/figure>\n<h3>7.2 Double \u00e9chelle et repr\u00e9sentation de la variance cumul\u00e9e<\/h3>\n<p>L&rsquo;un des apports majeurs de la visualisation avanc\u00e9e consiste \u00e0 enrichir le profil d&rsquo;\u00e9boulis univari\u00e9 par la courbe de saturation progressive de la variance cumul\u00e9e. Un lecteur scientifique cherche syst\u00e9matiquement \u00e0 appr\u00e9cier deux m\u00e9triques interd\u00e9pendantes : la magnitude de la composante individuelle (axe des ordonn\u00e9es primaire) et la part globale d&rsquo;information conserv\u00e9e par le mod\u00e8le tronqu\u00e9 (axe des ordonn\u00e9es secondaire gradu\u00e9 de 0 \u00e0 100 %).<\/p>\n<p>Pour concevoir cette superposition bi-axiale sous <code>ggplot2<\/code> sans violer la logique de mapping scalaire, on recourt au param\u00e8tre <code>sec.axis<\/code> de la fonction <code>scale_y_continuous()<\/code> en appliquant une transformation lin\u00e9aire inversement proportionnelle :<\/p>\n<p><code>facteur_conversion &lt;- max(scree_data$Valeur_Propre) \/ 100<\/code><br \/>\n<code>p_double_axe &lt;- ggplot(scree_data, aes(x = Comp_Num)) +<\/code><br \/>\n<code>  geom_bar(aes(y = Valeur_Propre), stat = \"identity\", fill = \"grey75\", width = 0.5) +<\/code><br \/>\n<code>  geom_line(aes(y = Valeur_Propre), color = \"navy\", size = 1) +<\/code><br \/>\n<code>  geom_point(aes(y = Valeur_Propre), color = \"navy\", size = 3) +<\/code><br \/>\n<code>  geom_line(aes(y = Variance_Cum * facteur_conversion), color = \"firebrick3\", size = 1, linetype = \"dashed\") +<\/code><br \/>\n<code>  geom_point(aes(y = Variance_Cum * facteur_conversion), color = \"firebrick3\", size = 2.5) +<\/code><br \/>\n<code>  scale_y_continuous(<\/code><br \/>\n<code>    name = \"Valeur Propre (Eigenvalue)\",<\/code><br \/>\n<code>    sec.axis = sec_axis(~ . \/ facteur_conversion, name = \"Pourcentage de Variance Cumul\u00e9e (%)\")<\/code><br \/>\n<code>  ) +<\/code><br \/>\n<code>  scale_x_continuous(breaks = scree_data<span class=\"arabpsy-math-inline\" data-latex=\"Co\\mp_Num, labels = paste0(&quot;PC&quot;, scree_data\">$Co\\mp_Num, labels = paste0(\"PC\", scree_data$<\/span>Comp_Num))<\/code><\/p>\n<p>Ce protocole vectoriel permet d&rsquo;ajuster l&rsquo;\u00e9chelle de la variance cumul\u00e9e (courbe tiret\u00e9e rouge) pour qu&rsquo;elle s&rsquo;int\u00e8gre harmonieusement sur la surface d&rsquo;affichage sans \u00e9craser les barres grises d&rsquo;origine. Les deux axes d&rsquo;ordonn\u00e9es permettent une double lecture analytique imm\u00e9diate : le chercheur peut d\u00e9duire instantan\u00e9ment qu&rsquo;en arr\u00eatant l&rsquo;extraction \u00e0 deux composantes (PC2), la valeur propre individuelle avoisine 1 tandis que la variance totale captur\u00e9e franchit la barre des 86 %.<\/p>\n<h3>7.3 Raffinement esth\u00e9tique selon les normes acad\u00e9miques (style APA)<\/h3>\n<p>Les normes \u00e9ditoriales de l&rsquo;American Psychological Association (APA 7e \u00e9dition) imposent des crit\u00e8res typographiques particuli\u00e8rement stricts pour les figures scientifiques destin\u00e9es aux revues \u00e0 comit\u00e9 de lecture : \u00e9limination de tout quadrillage d&rsquo;arri\u00e8re-plan superflu, suppression des teintes bariol\u00e9es non signifiantes, lisibilit\u00e9 parfaite des polices vectorielles sans empattement, contrastes \u00e9lev\u00e9s compatibles avec l&rsquo;impression en niveaux de gris et d\u00e9limitation nette des axes cart\u00e9siens.<\/p>\n<p>Le bloc de code ci-apr\u00e8s int\u00e8gre ces sp\u00e9cifications rigoureuses tout en ins\u00e9rant la ligne de coupure horizontale de Kaiser et les \u00e9tiquettes num\u00e9riques au-dessus des noeuds spectraux :<\/p>\n<p><code>p_apa &lt;- ggplot(scree_data, aes(x = Comp_Num, y = Valeur_Propre)) +<\/code><br \/>\n<code>  geom_hline(yintercept = 1, linetype = \"dotted\", color = \"gray40\", size = 0.8) +<\/code><br \/>\n<code>  geom_line(color = \"black\", size = 0.9) +<\/code><br \/>\n<code>  geom_point(color = \"black\", fill = \"black\", size = 3, shape = 16) +<\/code><br \/>\n<code>  geom_text(aes(label = paste0(round(Valeur_Propre, 2), \"n(\", round(Variance_Pct, 1), \"%)\")),<\/code><br \/>\n<code>            vjust = -0.6, size = 3.2, family = \"sans\", lineheight = 0.85) +<\/code><br \/>\n<code>  scale_x_continuous(breaks = scree_data<span class=\"arabpsy-math-inline\" data-latex=\"Co\\mp_Num, labels = paste0(&quot;PC&quot;, scree_data\">$Co\\mp_Num, labels = paste0(\"PC\", scree_data$<\/span>Comp_Num)) +<\/code><br \/>\n<code>  scale_y_continuous(limits = c(0, max(scree_data$Valeur_Propre) * 1.25), expand = c(0, 0)) +<\/code><br \/>\n<code>  labs(<\/code><br \/>\n<code>    title = \"Figure 1\",<\/code><br \/>\n<code>    subtitle = \"Scree Plot des Composantes Principales (Jeu de donn\u00e9es USArrests)\",<\/code><br \/>\n<code>    x = \"Composante Principale\",<\/code><br \/>\n<code>    y = \"Valeur Propre\"<\/code><br \/>\n<code>  ) +<\/code><br \/>\n<code>  theme_classic(base_size = 11, base_family = \"sans\") +<\/code><br \/>\n<code>  theme(<\/code><br \/>\n<code>    plot.title = element_text(face = \"bold\", size = 12, hjust = 0),<\/code><br \/>\n<code>    plot.subtitle = element_text(face = \"italic\", size = 11, hjust = 0, margin = margin(b = 15)),<\/code><br \/>\n<code>    axis.line = element_line(size = 0.6, color = \"black\"),<\/code><br \/>\n<code>    axis.text = element_text(color = \"black\"),<\/code><br \/>\n<code>    axis.title = element_text(face = \"plain\")<\/code><br \/>\n<code>  )<\/code><\/p>\n<p>L&rsquo;exportation finale de cet objet graphique doit imp\u00e9rativement respecter les standards d&rsquo;\u00e9chantillonnage graphique haute r\u00e9solution requis par les \u00e9diteurs universitaires. La fonction <code>ggsave()<\/code> permet de compiler l&rsquo;image aux formats vectoriels natifs sans perte de compression (PDF, EPS) ou au format matriciel haute densit\u00e9 (TIFF \u00e0 300 ou 600 DPI) :<\/p>\n<p><code>ggsave(\"figure1_scree_plot_apa.pdf\", plot = p_apa, width = 6.5, height = 4.5, units = \"in\", dpi = 300)<\/code><br \/>\n<code>ggsave(\"figure1_scree_plot_apa.tiff\", plot = p_apa, width = 6.5, height = 4.5, units = \"in\", dpi = 300, compression = \"lzw\")<\/code><\/p>\n<p>Cette approche garantit une restitution typographique irr\u00e9prochable, sans pixelisation des polices de caract\u00e8res ni bavure d&rsquo;interpolation lors de l&rsquo;impression physique de l&rsquo;article scientifique.<\/p>\n<h2>8. Automatisation et extensions avanc\u00e9es avec les packages factoextra et psych<\/h2>\n<h3>8.1 Visualisation imm\u00e9diate et flexible avec fviz_eig() de factoextra<\/h3>\n<p>Pour les praticiens d\u00e9sireux de s&rsquo;affranchir du codage manuel minutieux de <code>ggplot2<\/code> tout en b\u00e9n\u00e9ficiant de son rendu esth\u00e9tique sup\u00e9rieur, le package <code>factoextra<\/code>, con\u00e7u par Alboukadel Kassambara, constitue l&rsquo;outil d&rsquo;automatisation par excellence. Sp\u00e9cifiquement calibr\u00e9 pour interagir avec les sorties des algorithmes de factorisation multivari\u00e9e de R (notamment <code>prcomp<\/code>, <code>princomp<\/code>, et les objets issus du package <code>FactoMineR<\/code>), <code>factoextra<\/code> encapsule une suite de fonctions graphiques hautement optimis\u00e9es dont <code>fviz_eig()<\/code> et son alias syntaxique <code>fviz_screeplot()<\/code>.<\/p>\n<p>L&rsquo;ex\u00e9cution de la fonction n\u00e9cessite une seule ligne de commande appliqu\u00e9e directement sur l&rsquo;objet <code>pca_arrests<\/code> :<\/p>\n<p><code>fviz_eig(pca_arrests, addlabels = TRUE, ylim = c(0, 70),<\/code><br \/>\n<code>         barfill = \"#2E9FDF\", barcolor = \"#2E9FDF\",<\/code><br \/>\n<code>         linecolor = \"#E7B800\", ncp = 4,<\/code><br \/>\n<code>         main = \"D\u00e9composition de la variance par fviz_eig\",<\/code><br \/>\n<code>         xlab = \"Dimensions\", ylab = \"Pourcentage de variance expliqu\u00e9e\")<\/code><\/p>\n<p>La commande <code>fviz_eig()<\/code> r\u00e9sout nativement les difficult\u00e9s de param\u00e9trage : elle calcule de mani\u00e8re autonome les ratios de variance, g\u00e8re le positionnement angulaire des \u00e9tiquettes num\u00e9riques au-dessus des barres (<code>addlabels = TRUE<\/code>), et permet de basculer instantan\u00e9ment de la m\u00e9trique des pourcentages \u00e0 celle des valeurs propres brutes via l&rsquo;argument <code>choice = \"eigenvalue\"<\/code>. Puisque la sortie g\u00e9n\u00e9r\u00e9e est fondamentalement un objet de classe <code>ggplot<\/code>, le chercheur conserve l&rsquo;enti\u00e8re libert\u00e9 d&rsquo;y ajouter ult\u00e9rieurement des calques th\u00e9matiques compl\u00e9mentaires par simple surcharge syntaxique \u00e0 l&rsquo;aide de l&rsquo;op\u00e9rateur standard <code>+<\/code>.<\/p>\n<h3>8.2 Impl\u00e9mentation du scree test avec scree() du package psych<\/h3>\n<p>Le package <code>psych<\/code>, d\u00e9velopp\u00e9 sous la direction de <a rel=\"noopener noreferrer\" href=\"https:\/\/personality-project.org\/r\/psych\/\">William Revelle<\/a> \u00e0 l&rsquo;Universit\u00e9 Northwestern, est la bo\u00eete \u00e0 outils logicielle incontournable pour la recherche psychom\u00e9trique sous R. Contrairement aux approches purement descriptives, <code>psych<\/code> accorde une attention th\u00e9orique soutenue \u00e0 la distinction \u00e9pist\u00e9mologique entre l&rsquo;Analyse en Composantes Principales (ACP) et l&rsquo;Analyse Factorielle Exploratoire (AFE ou Facteurs Communs). Cette dualit\u00e9 est brillamment illustr\u00e9e par la fonction <code>scree()<\/code>.<\/p>\n<p>Appliqu\u00e9e directement sur la matrice de corr\u00e9lation ou sur les donn\u00e9es brutes, la fonction <code>scree()<\/code> projette sur un unique rep\u00e8re cart\u00e9sien les trajectoires compar\u00e9es des valeurs propres de l&rsquo;ACP et de l&rsquo;analyse factorielle en facteurs principaux (PAF) :<\/p>\n<p><code>psych::scree(USArrests, factors = TRUE, pc = TRUE, main = \"Test des \u00e9boulis : ACP vs AFE (psych)\")<\/code><\/p>\n<p>Dans ce graphique comparatif, deux courbes superpos\u00e9es sont trac\u00e9es :<\/p>\n<ul>\n<li>Une courbe marqu\u00e9e par des cercles symbolise les composantes principales issues de la matrice non alt\u00e9r\u00e9e \u00e0 diagonale unitaire (ACP classique).<\/li>\n<li>Une courbe marqu\u00e9e par des triangles ou des symboles distincts visualise les valeurs propres d\u00e9duites de la matrice de corr\u00e9lation r\u00e9duite dont la diagonale a \u00e9t\u00e9 remplac\u00e9e par l&rsquo;estimation des communalit\u00e9s initiales (<span class=\"arabpsy-math-inline\" data-latex=\"R - U^2\">$R &#8211; U^2$<\/span>).<\/li>\n<\/ul>\n<p>Cette distinction est fondamentale pour le psychom\u00e8tre : puisque l&rsquo;AFE \u00e9limine l&rsquo;erreur de mesure sp\u00e9cifique de chaque indicateur, les valeurs propres factorielles sont syst\u00e9matiquement inf\u00e9rieures aux valeurs propres de l&rsquo;ACP. L&rsquo;observation simultan\u00e9e de ces deux profils renseigne sur l&rsquo;impact de la variance r\u00e9siduelle unique des items sur la g\u00e9om\u00e9trie du coude, pr\u00e9munissant l&rsquo;analyste contre le risque de sur\u00e9valuer le poids dimensionnel r\u00e9el d&rsquo;items parasit\u00e9s par une forte variance d&rsquo;erreur.<\/p>\n<h3>8.3 Ex\u00e9cution de l&rsquo;analyse parall\u00e8le de Horn via fa.parallel()<\/h3>\n<p>Si le scree test visuel de Cattell repr\u00e9sente un saut qualitatif par rapport aux approches ant\u00e9rieures, il n&rsquo;en demeure pas moins tributaire de la subjectivit\u00e9 de l&rsquo;analyste. Pour surmonter cet arbitraire visuel, John L. Horn a formul\u00e9 en 1965 une avanc\u00e9e m\u00e9thodologique majeure : l&rsquo;Analyse Parall\u00e8le (*Parallel Analysis*). Le postulat de Horn est d&rsquo;une grande \u00e9l\u00e9gance logique : un \u00e9chantillon statistique al\u00e9atoire issu d&rsquo;une population o\u00f9 toutes les variables sont rigoureusement orthogonales (bruit blanc complet) g\u00e9n\u00e9rera m\u00e9caniquement, en raison des fluctuations al\u00e9atoires d&rsquo;\u00e9chantillonnage, des valeurs propres empiriques sup\u00e9rieures \u00e0 z\u00e9ro, voire substantiellement sup\u00e9rieures \u00e0 1 pour la premi\u00e8re dimension dans les cohortes restreintes.<\/p>\n<p>Par cons\u00e9quent, pour qu&rsquo;une dimension soit d\u00e9clar\u00e9e th\u00e9oriquement authentique, sa valeur propre observ\u00e9e doit d\u00e9passer de mani\u00e8re statistiquement significative la valeur propre moyenne (ou le 95e percentile) g\u00e9n\u00e9r\u00e9e al\u00e9atoirement \u00e0 partir de matrices de donn\u00e9es al\u00e9atoires ind\u00e9pendantes poss\u00e9dant rigoureusement les m\u00eames dimensions d&rsquo;\u00e9chantillon (<span class=\"arabpsy-math-inline\" data-latex=\"N\">$N$<\/span>) et le m\u00eame nombre de variables (<span class=\"arabpsy-math-inline\" data-latex=\"p\">$p$<\/span>) que le jeu de donn\u00e9es r\u00e9el. Le package <code>psych<\/code> impl\u00e9mente cet \u00e9talon-or computationnel via sa fonction <code>fa.parallel()<\/code> :<\/p>\n<p><code>analyse_parallele &lt;- psych::fa.parallel(<\/code><br \/>\n<code>  USArrests,<\/code><br \/>\n<code>  fm = \"minres\",<\/code><br \/>\n<code>  fa = \"both\",<\/code><br \/>\n<code>  n.iter = 500,<\/code><br \/>\n<code>  quant = 0.95,<\/code><br \/>\n<code>  main = \"Analyse Parall\u00e8le de Horn avec Enveloppe Monte-Carlo\"<\/code><br \/>\n<code>)<\/code><\/p>\n<p>La commande ex\u00e9cute cinq cents simulations stochastiques de Monte-Carlo (<code>n.iter = 500<\/code>). Sur le graphique qui en r\u00e9sulte, le scree plot des donn\u00e9es r\u00e9elles est confront\u00e9 \u00e0 la courbe en pointill\u00e9s bleus du bruit statistique al\u00e9atoire calcul\u00e9e au 95e centile (<code>quant = 0.95<\/code>). La r\u00e8gle de d\u00e9cision stipule formellement : <strong>seules doivent \u00eatre retenues les composantes empiriques situ\u00e9es strictement au-dessus de la ligne al\u00e9atoire simul\u00e9e<\/strong>. D\u00e8s que la courbe observ\u00e9e intersecte ou passe sous la trajectoire de simulation de Monte-Carlo, les dimensions r\u00e9siduelles ne sont plus discernables d&rsquo;un art\u00e9fact stochastique pur et doivent \u00eatre impitoyablement abandonn\u00e9es.<\/p>\n<h2>9. Crit\u00e8res d\u00e9cisionnels pour la s\u00e9lection du nombre optimal de composantes<\/h2>\n<h3>9.1 Le test du coude de Cattell (Scree Test) et ses limites de subjectivit\u00e9<\/h3>\n<p>Le test du coude (*Scree Test*) pr\u00e9conis\u00e9 par Cattell consiste \u00e0 rep\u00e9rer visuellement le point de transition o\u00f9 la d\u00e9crue abrupte de la falaise fait place \u00e0 un nivellement lin\u00e9aire r\u00e9gulier mat\u00e9rialisant l&rsquo;\u00e9boulis rocheux. La r\u00e8gle d\u00e9cisionnelle s&rsquo;\u00e9nonce ainsi : retenir le nombre de composantes qui pr\u00e9c\u00e8dent imm\u00e9diatement le coude d&rsquo;inflexion principal. Dans une d\u00e9composition spectrale th\u00e9orique id\u00e9ale, le graphique pr\u00e9sente une fracture g\u00e9om\u00e9trique manifeste ne laissant planer aucun doute sur la fronti\u00e8re d&rsquo;extraction.<\/p>\n<p>N\u00e9anmoins, la mise en \u0153uvre pratique de ce test visuel souffre de limitations psychom\u00e9triques document\u00e9es depuis plusieurs d\u00e9cennies. Dans de nombreux jeux de donn\u00e9es empiriques complexes, le chercheur fait face \u00e0 ce que les m\u00e9thodologues d\u00e9signent sous les termes de \u00ab coudes multiples \u00bb, de \u00ab d\u00e9clins continus doux \u00bb ou de \u00ab plateaux h\u00e9sitants \u00bb. En pr\u00e9sence d&rsquo;un profil de valeurs propres affichant une d\u00e9gressivit\u00e9 graduelle sans cassure nette, localiser le point d&rsquo;inflexion rel\u00e8ve d&rsquo;une conjecture subjective. Des \u00e9tudes exp\u00e9rimentales en m\u00e9trologie ont d\u00e9montr\u00e9 que l&rsquo;accord inter-juges face \u00e0 des scree plots ambigus n&rsquo;exc\u00e8de gu\u00e8re 60 \u00e0 70 %, des analystes distincts optant fr\u00e9quemment pour des nombres de facteurs divergents \u00e0 partir d&rsquo;un trac\u00e9 rigoureusement identique.<\/p>\n<p>Cet arbitraire visuel peut entra\u00eener des r\u00e9percussions d\u00e9sastreuses : s\u00e9lectionner une composante de trop ou omettre un facteur substantiel modifie drastiquement la structure apr\u00e8s rotation, d\u00e9stabilise les saturations factorielles des items et nuit \u00e0 la reproductibilit\u00e9 des conclusions de l&rsquo;\u00e9tude. Pour ces motifs, la communaut\u00e9 acad\u00e9mique exige aujourd&rsquo;hui que le scree test de Cattell ne soit plus employ\u00e9 comme arbitre solitaire, mais qu&rsquo;il soit imp\u00e9rativement triangul\u00e9 avec des crit\u00e8res quantitatifs d&rsquo;arr\u00eat automatis\u00e9s.<\/p>\n<h3>9.2 Le crit\u00e8re de Kaiser-Guttman (valeur propre sup\u00e9rieure \u00e0 1)<\/h3>\n<p>Le crit\u00e8re de Kaiser-Guttman, popularis\u00e9 par Henry Kaiser en 1960 sur la base des postulats initiaux de Louis Guttman (1954), demeure le standard algorithmique le plus r\u00e9pandu en raison de sa simplicit\u00e9 computationnelle. Il postule qu&rsquo;une composante principale ne m\u00e9rite d&rsquo;\u00eatre conserv\u00e9e que si sa valeur propre est strictement sup\u00e9rieure \u00e0 l&rsquo;unit\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_i &gt; 1\">$\\lambda_i &gt; 1$<\/span>). Le fondement logique est intuitif : puisque chaque variable manifeste standardis\u00e9e poss\u00e8de une variance unitaire \u00e9gale \u00e0 1, une composante synth\u00e9tique dont la valeur propre est inf\u00e9rieure \u00e0 1 explique moins de variance qu&rsquo;une seule variable observ\u00e9e isol\u00e9e, ce qui contredit le principe m\u00eame de r\u00e9duction dimensionnelle.<\/p>\n<p>Bien que s\u00e9duisante et impl\u00e9ment\u00e9e par d\u00e9faut dans la plupart des logiciels commerciaux historiques (comme SPSS), cette r\u00e8gle fait l&rsquo;objet de critiques m\u00e9thodologiques s\u00e9v\u00e8res dans la litt\u00e9rature statistique contemporaine. Sa faille majeure r\u00e9side dans son insensibilit\u00e9 aux fluctuations d&rsquo;\u00e9chantillonnage et sa d\u00e9pendance m\u00e9canique directe au nombre total de variables (<span class=\"arabpsy-math-inline\" data-latex=\"p\">$p$<\/span>) inject\u00e9es dans la matrice. Les simulations de Monte-Carlo d\u00e9montrent de fa\u00e7on convergente que :<\/p>\n<ul>\n<li>Lorsque le nombre de variables est \u00e9lev\u00e9 (<span class=\"arabpsy-math-inline\" data-latex=\"p &gt; 30\">$p &gt; 30$<\/span>), le crit\u00e8re de Kaiser tend quasi-syst\u00e9matiquement \u00e0 la <strong>sur-extraction<\/strong> pathologique, s\u00e9lectionnant de nombreuses composantes mineures charg\u00e9es de bruit r\u00e9siduel qui gonflent artificiellement la complexit\u00e9 factorielle.<\/li>\n<li>Lorsque le nombre de variables est tr\u00e8s faible (<span class=\"arabpsy-math-inline\" data-latex=\"p &lt; 10\">$p &lt; 10$<\/span>) et que l&rsquo;\u00e9chantillon est restreint, il arrive qu&rsquo;il engendre une <strong>sous-extraction<\/strong> abusive, \u00e9cartant des composantes porteuses de sens clinique dont la valeur propre est marginalement inf\u00e9rieure \u00e0 1 (par exemple 0,98).<\/li>\n<\/ul>\n<p>L&rsquo;application aveugle de la fronti\u00e8re binaire <span class=\"arabpsy-math-inline\" data-latex=\"lambda = 1\">$lambda = 1$<\/span> doit donc \u00eatre proscrite. Elle ne constitue qu&rsquo;une borne indicative sup\u00e9rieure de la dimensionnalit\u00e9 maximale admissible et ne doit jamais faire office de verdict sans \u00e9quivoque.<\/p>\n<h3>9.3 Le seuil de variance minimale cumul\u00e9e et triangulation des crit\u00e8res<\/h3>\n<p>Le troisi\u00e8me crit\u00e8re usuel repose sur la fixation d&rsquo;un seuil empirique de variance totale minimale expliqu\u00e9e. Selon cette approche pragmatique, l&rsquo;extraction se poursuit jusqu&rsquo;\u00e0 ce que la variance cumul\u00e9e des composantes conserv\u00e9es atteigne un seuil pr\u00e9\u00e9tabli par le chercheur. Dans les sciences dures et le g\u00e9nie industriel, ce seuil est fr\u00e9quemment fix\u00e9 \u00e0 90 % ou 95 % pour certifier une reconstitution fid\u00e8le du signal physique. En revanche, dans le champ des sciences comportementales, de la sociologie et de la psychom\u00e9trie, les standards admis par la litt\u00e9rature situent g\u00e9n\u00e9ralement le seuil d&rsquo;admissibilit\u00e9 entre 60 % et 75 % de la variance totale expliqu\u00e9e.<\/p>\n<p>Ce crit\u00e8re pr\u00e9sente toutefois le d\u00e9faut sym\u00e9trique d&rsquo;\u00eatre partiellement arbitraire dans la fixation de son seuil de tol\u00e9rance. Pour \u00e9chapper \u00e0 l&rsquo;\u00e9cueil de chaque approche prise isol\u00e9ment, la m\u00e9thodologie quantitative contemporaine pr\u00e9conise formellement un <strong>protocole de triangulation hi\u00e9rarchis\u00e9<\/strong> :<\/p>\n<ol>\n<li><strong>Premi\u00e8re instance (\u00c9talon-or statistique) :<\/strong> Examiner le verdict de l&rsquo;Analyse Parall\u00e8le de Horn au percentile 95. Si Horn recommande <span class=\"arabpsy-math-inline\" data-latex=\"k\">$k$<\/span> composantes, ce nombre constitue l&rsquo;ancrage prioritaire du mod\u00e8le.<\/li>\n<li><strong>Deuxi\u00e8me instance (Validation g\u00e9om\u00e9trique) :<\/strong> Confronter ce r\u00e9sultat avec le coude du scree plot de Cattell. Le point de rupture doit co\u00efncider avec l&rsquo;arr\u00eat recommand\u00e9 par Horn ou s&rsquo;en trouver imm\u00e9diatement adjacent.<\/li>\n<li><strong>Troisi\u00e8me instance (V\u00e9rification de Kaiser et variance globale) :<\/strong> S&rsquo;assurer que les composantes s\u00e9lectionn\u00e9es n&rsquo;enfreignent pas dramatiquement le crit\u00e8re de Kaiser (<span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_i \\approx 1\">$\\lambda_i \\approx 1$<\/span> ou sup\u00e9rieur) et qu&rsquo;elles mobilisent une fraction de variance cumul\u00e9e compatible avec les standards de la discipline (<span class=\"arabpsy-math-inline\" data-latex=\"&gt; 60,%\">$&gt; 60,%$<\/span>).<\/li>\n<li><strong>Instance finale supr\u00eame (Sens clinique et conceptuel) :<\/strong> \u00c9valuer si les <span class=\"arabpsy-math-inline\" data-latex=\"k\">$k$<\/span> composantes extraites sont interpr\u00e9tables psychologiquement, th\u00e9oriquement coh\u00e9rentes, et exemptes de saturations crois\u00e9es ind\u00e9termin\u00e9es apr\u00e8s rotation factorielle.<\/li>\n<\/ol>\n<p>Cette d\u00e9marche de convergence m\u00e9thodique prot\u00e8ge l&rsquo;investigateur contre les conclusions fallacieuses dict\u00e9es par un seul outil diagnostique isol\u00e9.<\/p>\n<h2>10. Diagnostics post-s\u00e9lection et pertinence structurelle en psychom\u00e9trie<\/h2>\n<h3>10.1 \u00c9valuation des saturations factorielles et de la structure apr\u00e8s s\u00e9lection<\/h3>\n<p>La validation du nombre de composantes extraites \u00e0 partir du scree plot ne marque pas l&rsquo;ach\u00e8vement de l&rsquo;investigation m\u00e9thodologique ; elle initie au contraire la phase d&rsquo;audit structurel. Une fois fix\u00e9e la dimensionalit\u00e9 optimale <span class=\"arabpsy-math-inline\" data-latex=\"k\">$k$<\/span>, le chercheur doit calculer la matrice des saturations factorielles (*factor loadings*), qui quantifient la corr\u00e9lation empirique entre chaque variable manifeste et les composantes s\u00e9lectionn\u00e9es. Dans l&rsquo;espace non tourn\u00e9 de <code>prcomp()<\/code>, ces saturations se d\u00e9duisent par la multiplication de la matrice de rotation <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{V}\">$\\mathbf{V}$<\/span> par la matrice diagonale des \u00e9carts-types <span class=\"arabpsy-math-inline\" data-latex=\"\\mathbf{D} \/ \\sqrt{n-1}\">$\\mathbf{D} \/ \\sqrt{n-1}$<\/span> :<\/p>\n<p><code>loadings_k &lt;- pca_arrests<span class=\"arabpsy-math-inline\" data-latex=\"rotation[, 1:2] %*% diag(pca_arrests\">$rotation[, 1:2] %*% diag(pca_arrests$<\/span>sdev[1:2])<\/code><br \/>\n<code>colnames(loadings_k) &lt;- c(\"PC1\", \"PC2\")<\/code><br \/>\n<code>print(round(loadings_k, 3))<\/code><\/p>\n<p>Dans la grande majorit\u00e9 des cas pratiques, la solution brute non tourn\u00e9e affiche une configuration d&rsquo;hyper-g\u00e9n\u00e9ralit\u00e9 (o\u00f9 presque toutes les variables saturent lourdement sur la premi\u00e8re composante), rendant l&rsquo;interpr\u00e9tation des traits latents opaque. Pour atteindre la \u00ab structure simple \u00bb d\u00e9finie par Thurstone, il est indispensable de proc\u00e9der \u00e0 une rotation vectorielle :<\/p>\n<ul>\n<li><strong>Rotation orthogonale (Varimax) :<\/strong> Pr\u00e9serve l&rsquo;ind\u00e9pendance stricte des composantes (orthogonalit\u00e9 \u00e0 90 degr\u00e9s) tout en maximisant la dispersion des saturations au sein de chaque colonne afin d&rsquo;approcher des charges binaires (proches de 0 ou de 1).<\/li>\n<li><strong>Rotation oblique (Promax ou Oblimin) :<\/strong> Autorise une corr\u00e9lation empirique entre les composantes extraites. En psychom\u00e9trie, la rotation oblique est th\u00e9oriquement pr\u00e9f\u00e9rable, car les construits psychologiques r\u00e9els (par exemple, anxi\u00e9t\u00e9 et d\u00e9pression, ou m\u00e9moire de travail et raisonnement fluide) ne sont quasiment jamais rigoureusement orthogonaux dans la population g\u00e9n\u00e9rale.<\/li>\n<\/ul>\n<p>L&rsquo;examen post-rotation permet de rep\u00e9rer d&rsquo;\u00e9ventuels items orphelins (ne saturant significativement sur aucune dimension, avec un seuil de coupure standard <span class=\"arabpsy-math-inline\" data-latex=\"|l| &lt; 0,30\">$|l| &lt; 0,30$<\/span> ou $0,40$) ou des items pr\u00e9sentant des saturations crois\u00e9es complexes (<span class=\"arabpsy-math-inline\" data-latex=\"|l| &gt; 0,40\">$|l| &gt; 0,40$<\/span> sur plusieurs axes distincts), invitant \u00e0 une \u00e9puration m\u00e9trologique de l&rsquo;instrument.<\/p>\n<h3>10.2 Risques statistiques de la sous-extraction et de la sur-extraction<\/h3>\n<p>L&rsquo;arbitrage dimensionnel dict\u00e9 par la lecture du scree plot emporte des cons\u00e9quences structurelles asym\u00e9triques dont la gravit\u00e9 statistique doit \u00eatre rigoureusement mesur\u00e9e par l&rsquo;exp\u00e9rimentateur. L&rsquo;analyste doit arbitrer entre deux p\u00e9rils statistiques diam\u00e9tralement oppos\u00e9s :<\/p>\n<p>La <strong>sous-extraction<\/strong> (retenir un nombre de composantes inf\u00e9rieur \u00e0 la structure dimensionnelle latente r\u00e9elle, par exemple <span class=\"arabpsy-math-inline\" data-latex=\"k - 1\">$k &#8211; 1$<\/span> ou <span class=\"arabpsy-math-inline\" data-latex=\"k - 2\">$k &#8211; 2$<\/span>) constitue l&rsquo;erreur m\u00e9thodologique la plus pr\u00e9judiciable. En comprimant de force l&rsquo;espace des donn\u00e9es, la sous-extraction contraint des construits psychologiques th\u00e9oriquement distincts et orthogonaux \u00e0 fusionner artificiellement au sein d&rsquo;une composante hybride impure. Les saturations factorielles sont s\u00e9v\u00e8rement biais\u00e9es, la variance r\u00e9siduelle informative est rejet\u00e9e dans l&rsquo;erreur, et les relations r\u00e9elles existant entre les traits sont irr\u00e9m\u00e9diablement fauss\u00e9es, ruinant la validit\u00e9 de contenu du test d&rsquo;\u00e9valuation.<\/p>\n<p>\u00c0 l&rsquo;oppos\u00e9, la <strong>sur-extraction<\/strong> (retenir un nombre de dimensions sup\u00e9rieur \u00e0 la r\u00e9alit\u00e9, par exemple <span class=\"arabpsy-math-inline\" data-latex=\"k + 1\">$k + 1$<\/span> ou <span class=\"arabpsy-math-inline\" data-latex=\"k + 2\">$k + 2$<\/span>) s&rsquo;av\u00e8re statistiquement moins destructrice, bien que n\u00e9faste. Elle conduit \u00e0 scinder un facteur g\u00e9n\u00e9ral authentique en sous-facteurs marginaux hautement corr\u00e9l\u00e9s, ou pire, \u00e0 attribuer une signification th\u00e9orique \u00e0 une dimension qui ne capture que des fluctuations stochastiques d&rsquo;\u00e9chantillonnage propres \u00e0 l&rsquo;\u00e9chantillon analys\u00e9 (*over-fitting*). Cela compromet s\u00e9v\u00e8rement la r\u00e9plicabilit\u00e9 future de l&rsquo;\u00e9chelle d&rsquo;\u00e9valuation lors des tentatives de validation crois\u00e9e sur de nouvelles cohortes ind\u00e9pendantes. Face \u00e0 ce dilemme, les simulations num\u00e9riques indiquent qu&rsquo;en cas d&rsquo;incertitude marginale persistante entre deux solutions factorielles apr\u00e8s consultation du scree plot, une l\u00e9g\u00e8re sur-extraction est g\u00e9n\u00e9ralement moins d\u00e9l\u00e9t\u00e8re qu&rsquo;une sous-extraction destructrice, sous r\u00e9serve expresse de valider ult\u00e9rieurement la coh\u00e9rence interne des sous-\u00e9chelles extraites.<\/p>\n<h3>10.3 Validation crois\u00e9e et robustesse par r\u00e9\u00e9chantillonnage (Bootstrap)<\/h3>\n<p>Un scree plot classique repose sur l&rsquo;\u00e9chantillon empirique unique recueilli, ce qui le rend sensible aux instabilit\u00e9s distributionnelles mineures de la cohorte d&rsquo;\u00e9valuation. Pour asseoir la robustesse statistique de la d\u00e9composition spectrale, l&rsquo;impl\u00e9mentation d&rsquo;un algorithme de r\u00e9\u00e9chantillonnage non-param\u00e9trique par **Bootstrap** repr\u00e9sente la d\u00e9marche m\u00e9thodologique la plus \u00e9l\u00e9gante.<\/p>\n<p>Le protocole consiste \u00e0 g\u00e9n\u00e9rer par tirage avec remise <span class=\"arabpsy-math-inline\" data-latex=\"B = 1000\">$B = 1000$<\/span> pseudo-\u00e9chantillons de taille identique \u00e0 l&rsquo;\u00e9chantillon initial, \u00e0 ex\u00e9cuter l&rsquo;ACP sur chaque it\u00e9ration, et \u00e0 enregistrer syst\u00e9matiquement le spectre complet des valeurs propres obtenues. Cette proc\u00e9dure permet de d\u00e9river empiriquement des intervalles de confiance \u00e0 95 % autour de chaque valeur propre du scree plot original. Le script R ci-dessous formalise cette s\u00e9quence de r\u00e9\u00e9chantillonnage intensif :<\/p>\n<p><code>B &lt;- 1000<\/code><br \/>\n<code>n &lt;- nrow(USArrests)<\/code><br \/>\n<code>p &lt;- ncol(USArrests)<\/code><br \/>\n<code>valeurs_boot &lt;- matrix(NA, nrow = B, ncol = p)<\/code><br \/>\n<code>for(i in 1:B) {<\/code><br \/>\n<code>  idx &lt;- sample(1:n, size = n, replace = TRUE)<\/code><br \/>\n<code>  echantillon_boot &lt;- USArrests[idx, ]<\/code><br \/>\n<code>  pca_b &lt;- prcomp(echantillon_boot, center = TRUE, scale. = TRUE)<\/code><br \/>\n<code>  valeurs_boot[i, ] &lt;- pca_b$sdev^2<\/code><br \/>\n<code>}<\/code><br \/>\n<code>ic_inf &lt;- apply(valeurs_boot, 2, quantile, probs = 0.025)<\/code><br \/>\n<code>ic_sup &lt;- apply(valeurs_boot, 2, quantile, probs = 0.975)<\/code><br \/>\n<code>scree_boot_df &lt;- tibble(Comp = 1:p, VP = pca_arrests$sdev^2, IC_Inf = ic_inf, IC_Sup = ic_sup)<\/code><\/p>\n<p>Si l&rsquo;intervalle de confiance bootstrapp\u00e9 d&rsquo;une composante donn\u00e9e ne chevauche pas l&rsquo;intervalle de la composante adjacente et se maintient r\u00e9solument au-dessus de la valeur critique 1, la stabilit\u00e9 de la dimension est formellement d\u00e9montr\u00e9e. Si, au contraire, les intervalles de confiance se croisent ou englobent largement le seuil d&rsquo;ind\u00e9termination, le chercheur sait que la fronti\u00e8re du coude de Cattell est fragile et soumise aux al\u00e9as de recrutement de l&rsquo;\u00e9chantillon, incitant \u00e0 une extr\u00eame r\u00e9serve lors de l&rsquo;affirmation de la dimensionnalit\u00e9 du construit.<\/p>\n<h2>11. Tutoriel complet et reproductible : Du jeu de donn\u00e9es brut au scree plot final<\/h2>\n<h3>11.1 Pipeline de traitement R enti\u00e8rement automatis\u00e9<\/h3>\n<p>Pour assurer une int\u00e9gration op\u00e9rationnelle fluide dans les travaux de recherche, il est judicieux de synth\u00e9tiser l&rsquo;int\u00e9gralit\u00e9 du pipeline m\u00e9thodologique d\u00e9velopp\u00e9 au sein d&rsquo;une fonction R autonome, modulaire et document\u00e9e. Cette routine prend en entr\u00e9e n&rsquo;importe quel tableau de donn\u00e9es brutes num\u00e9riques continues, proc\u00e8de \u00e0 l&rsquo;assainissement matriciel, ex\u00e9cute l&rsquo;Analyse en Composantes Principales standardis\u00e9e, calcule les tables spectrales compl\u00e8tes et retourne \u00e0 la fois la matrice de synth\u00e8se et le scree plot hautement configur\u00e9 pr\u00eat pour la publication.<\/p>\n<p>Le bloc de code ci-apr\u00e8s formalise cette fonction industrielle r\u00e9utilisable :<\/p>\n<p><code>generer_scree_plot_expert &lt;- function(data, titre = \"Analyse Spectrale des \u00c9boulis\", style_apa = TRUE) {<\/code><br \/>\n<code>  donnees_propres &lt;- na.omit(data)<\/code><br \/>\n<code>  pca_obj &lt;- prcomp(donnees_propres, center = TRUE, scale. = TRUE)<\/code><br \/>\n<code>  vp &lt;- pca_obj$sdev^2<\/code><br \/>\n<code>  p_var &lt;- (vp \/ sum(vp)) * 100<\/code><br \/>\n<code>  cum_var &lt;- cumsum(p_var)<\/code><br \/>\n<code>  df_res &lt;- data.frame(<\/code><br \/>\n<code>    Composante = 1:length(vp),<\/code><br \/>\n<code>    Valeur_Propre = vp,<\/code><br \/>\n<code>    Pourcentage_Variance = p_var,<\/code><br \/>\n<code>    Pourcentage_Cumule = cum_var<\/code><br \/>\n<code>  )<\/code><br \/>\n<code>  g &lt;- ggplot(df_res, aes(x = Composante, y = Valeur_Propre)) +<\/code><br \/>\n<code>    geom_hline(yintercept = 1, linetype = \"dashed\", color = \"firebrick\", size = 0.8) +<\/code><br \/>\n<code>    geom_line(color = \"steelblue4\", size = 1) +<\/code><br \/>\n<code>    geom_point(color = \"steelblue4\", fill = \"white\", shape = 21, size = 3.5, stroke = 1.2) +<\/code><br \/>\n<code>    geom_text(aes(label = paste0(round(Valeur_Propre, 2), \" (\", round(Pourcentage_Variance, 1), \"%)\")),<\/code><br \/>\n<code>              vjust = -0.8, size = 3, fontface = \"bold\") +<\/code><br \/>\n<code>    scale_x_continuous(breaks = 1:length(vp), labels = paste0(\"PC\", 1:length(vp))) +<\/code><br \/>\n<code>    scale_y_continuous(limits = c(0, max(vp) * 1.3), expand = c(0, 0)) +<\/code><br \/>\n<code>    labs(title = titre, x = \"Composante Principale\", y = \"Valeur Propre (Variance d'inertie)\")<\/code><br \/>\n<code>  if(style_apa) {<\/code><br \/>\n<code>    g &lt;- g + theme_classic(base_size = 11) +<\/code><br \/>\n<code>      theme(plot.title = element_text(face = \"bold\", hjust = 0.5), axis.line = element_line(color = \"black\"))<\/code><br \/>\n<code>  } else {<\/code><br \/>\n<code>    g &lt;- g + theme_minimal(base_size = 11)<\/code><br \/>\n<code>  }<\/code><br \/>\n<code>  return(list(resultats = df_res, graph = g, pca_object = pca_obj))<\/code><br \/>\n<code>}<\/code><\/p>\n<p>Cette encapsulation algorithmique permet d&rsquo;analyser n&rsquo;importe quel inventaire psychom\u00e9trique en une seule instruction d&rsquo;appel, renfor\u00e7ant consid\u00e9rablement l&rsquo;efficacit\u00e9 du chercheur et \u00e9liminant tout risque d&rsquo;erreur de saisie interm\u00e9diaire lors des op\u00e9rations de mise \u00e0 l&rsquo;\u00e9chelle ou d&rsquo;\u00e9l\u00e9vation quadratique.<\/p>\n<h3>11.2 Ex\u00e9cution appliqu\u00e9e sur les donn\u00e9es USArrests et interpr\u00e9tation analytique<\/h3>\n<p>L&rsquo;application directe de notre pipeline automatis\u00e9 sur le jeu <code>USArrests<\/code> fournit instantan\u00e9ment les livrables analytiques :<\/p>\n<p><code>analyse_arrests &lt;- generer_scree_plot_expert(USArrests, titre = \"Scree Plot de Cattell - Donn\u00e9es USArrests\", style_apa = TRUE)<\/code><br \/>\n<code>print(round(analyse_arrests$resultats, 3))<\/code><br \/>\n<code>print(analyse_arrests$graph)<\/code><\/p>\n<p>L&rsquo;analyse d\u00e9taill\u00e9e des sorties tabulaires et graphiques converge vers un verdict m\u00e9thodologique pr\u00e9cis. La premi\u00e8re composante principale affiche une valeur propre dominante de 2,48, capturant \u00e0 elle seule 62,01 % de la variance totale du syst\u00e8me d&rsquo;agression. La deuxi\u00e8me composante affiche une valeur propre de 0,99 (arrondie \u00e0 0,990), absorbant 24,74 % de variance suppl\u00e9mentaire. La troisi\u00e8me composante chute brutalement \u00e0 une valeur propre r\u00e9siduelle de 0,36 (8,91 % de variance), et la quatri\u00e8me ferme la marche \u00e0 0,17 (4,34 % de variance).<\/p>\n<p>Sur le trac\u00e9 du scree plot, la cassure g\u00e9om\u00e9trique du coude de Cattell appara\u00eet sans ambigu\u00eft\u00e9 au niveau de la <strong>troisi\u00e8me composante (PC3)<\/strong>. En vertu de la r\u00e8gle de Cattell stipulant la r\u00e9tention exclusive des composantes pr\u00e9c\u00e9dant strictement le point d&rsquo;inflexion r\u00e9siduel, ce point de rupture d\u00e9signe formellement une structure \u00e0 **deux composantes principales**. La confrontation triangul\u00e9e corrobore solidement cette lecture : la solution bifactorielle condense 86,75 % de l&rsquo;inertie originelle compl\u00e8te. Bien que la valeur propre de PC2 (<span class=\"arabpsy-math-inline\" data-latex=\"\\lambda_2 = 0,9898\">$\\lambda_2 = 0,9898$<\/span>) soit infinit\u00e9simalement inf\u00e9rieure au seuil strict de Kaiser (<span class=\"arabpsy-math-inline\" data-latex=\"lambda &gt; 1\">$lambda &gt; 1$<\/span>), son rejet m\u00e9canique sur la base exclusive de cette marge r\u00e9siduelle de $0,01$ rel\u00e8verait d&rsquo;un dogmatisme algorithmique aveugle, d&rsquo;autant que l&rsquo;Analyse Parall\u00e8le de Horn valide sans \u00e9quivoque la r\u00e9tention de cette deuxi\u00e8me dimension sociologique majeure.<\/p>\n<h3>11.3 Transposition m\u00e9thodologique \u00e0 un questionnaire de personnalit\u00e9 de type Likert<\/h3>\n<p>Bien que le jeu <code>USArrests<\/code> soit parfait pour ma\u00eetriser la cin\u00e9matique de calcul, les inventaires psychologiques r\u00e9els pr\u00e9sentent une contrainte m\u00e9thodologique suppl\u00e9mentaire capitale : ils sont massivement compos\u00e9s d&rsquo;\u00e9chelles de cotation ordinales discr\u00e8tes (items de type Likert en 4, 5 ou 7 points d&rsquo;ancrage). Or, l&rsquo;utilisation du coefficient de corr\u00e9lation produit-moment de Pearson sur des variables cat\u00e9gorielles ordinales viole les postulats de continuit\u00e9 sous-jacents, comprime artificiellement les corr\u00e9lations bivari\u00e9es et tend \u00e0 engendrer de faux facteurs m\u00e9thodologiques parasites sur le scree plot (commun\u00e9ment appel\u00e9s facteurs de difficult\u00e9 ou art\u00e9facts de distribution cat\u00e9gorielle).<\/p>\n<p>Pour traiter ad\u00e9quatement ce type de donn\u00e9es psychom\u00e9triques, la matrice d&rsquo;inter-corr\u00e9lations doit imp\u00e9rativement \u00eatre estim\u00e9e via des <strong>corr\u00e9lations polychoriques<\/strong>. L&rsquo;algorithme polychorique mod\u00e9lise math\u00e9matiquement que la variable discr\u00e8te ordonn\u00e9e observ\u00e9e refl\u00e8te une variable latente gaussienne sous-jacente continue segment\u00e9e par des seuils de r\u00e9ponse diff\u00e9rentiels. Le code R suivant illustre la transposition exacte du scree test vers une matrice polychorique sous le package <code>psych<\/code> :<\/p>\n<p><code>matrice_poly &lt;- psych::polychoric(donnees_likert)$rho<\/code><br \/>\n<code>scree_poly &lt;- psych::fa.parallel(<\/code><br \/>\n<code>  matrice_poly,<\/code><br \/>\n<code>  n.obs = nrow(donnees_likert),<\/code><br \/>\n<code>  cor = \"poly\",<\/code><br \/>\n<code>  fm = \"wls\",<\/code><br \/>\n<code>  fa = \"both\",<\/code><br \/>\n<code>  main = \"Analyse Parall\u00e8le Polychorique pour Donn\u00e9es Likert\"<\/code><br \/>\n<code>)<\/code><\/p>\n<p>Dans ce cadre analytique adapt\u00e9, la d\u00e9composition spectrale appliqu\u00e9e sur la matrice polychorique restitue la v\u00e9ritable structure dimensionnelle des construits psychologiques sans les distorsions d&rsquo;\u00e9boulis caus\u00e9es par l&rsquo;asym\u00e9trie des cat\u00e9gories de r\u00e9ponse. Cette \u00e9tape constitue le pr\u00e9alable indispensable avant toute transition confirmatoire formelle vers les Mod\u00e8les d&rsquo;\u00c9quations Structurelles (SEM \/ CFA), o\u00f9 la structure d\u00e9gag\u00e9e par le scree plot exploratoire sera soumise au test de conformit\u00e9 indicielle (RMSEA, CFI, TLI, SRMR).<\/p>\n<h2>12. Erreurs fr\u00e9quentes, pi\u00e8ges m\u00e9thodologiques et recommandations acad\u00e9miques<\/h2>\n<h3>12.1 Confusion persistante entre composantes principales et facteurs latents<\/h3>\n<p>L&rsquo;une des d\u00e9rives les plus tenaces dans la litt\u00e9rature quantitative francophone et internationale concerne la confusion conceptuelle et s\u00e9mantique entre l&rsquo;Analyse en Composantes Principales (ACP) et l&rsquo;Analyse Factorielle Exploratoire (AFE). Ces deux d\u00e9marches ne partagent ni les m\u00eames fondements \u00e9pist\u00e9mologiques, ni les m\u00eames formulations math\u00e9matiques, et l&rsquo;usage interchangeable des termes \u00ab facteurs \u00bb et \u00ab composantes \u00bb doit \u00eatre formellement banni lors de la r\u00e9daction de th\u00e8ses, m\u00e9moires ou articles scientifiques soumis \u00e0 des revues acad\u00e9miques.<\/p>\n<p>L&rsquo;Analyse en Composantes Principales est un <strong>mod\u00e8le formel de r\u00e9duction empirique de variance<\/strong>. Elle ne postule aucune causalit\u00e9 latente sous-jacente : les composantes ne sont que des combinaisons lin\u00e9aires directes des variables manifestes, orient\u00e9es de mani\u00e8re \u00e0 condenser la variance totale maximale sans distinguer la part d&rsquo;erreur. Les valeurs propres du scree plot d&rsquo;ACP proviennent d&rsquo;une matrice o\u00f9 chaque variable poss\u00e8de un poids diagonal unitaire de 1. \u00c0 l&rsquo;oppos\u00e9, l&rsquo;Analyse Factorielle Exploratoire est un <strong>mod\u00e8le de mesure th\u00e9orique r\u00e9flectif<\/strong>, postulant que les corr\u00e9lations observables sont caus\u00e9es en amont par des entit\u00e9s latentes inobservables (<span class=\"arabpsy-math-inline\" data-latex=\"X_j = \\lambda_{j1} F_1 + dots + \\lambda_{jm} F_m + e_j\">$X_j = \\lambda_{j1} F_1 + dots + \\lambda_{jm} F_m + e_j$<\/span>).<\/p>\n<p>Dans un scree plot d&rsquo;AFE, la variance analys\u00e9e est exclusivement la variance commune partag\u00e9e (les communalit\u00e9s <span class=\"arabpsy-math-inline\" data-latex=\"h_i^2\">$h_i^2$<\/span>), l&rsquo;erreur de mesure unique (<span class=\"arabpsy-math-inline\" data-latex=\"u_i^2\">$u_i^2$<\/span>) ayant \u00e9t\u00e9 rigoureusement soustraite de la diagonale principale. Par cons\u00e9quent, reporter les valeurs propres d&rsquo;une ACP en pr\u00e9tendant qu&rsquo;il s&rsquo;agit des facteurs latents r\u00e9els d&rsquo;une \u00e9chelle psychom\u00e9trique constitue une h\u00e9r\u00e9sie m\u00e9thodologique. Le chercheur doit explicitement clarifier dans ses notes m\u00e9thodologiques s&rsquo;il projette un \u00e9boulis d&rsquo;ACP (d\u00e9composition d&rsquo;inertie brute) ou un \u00e9boulis d&rsquo;AFE (d\u00e9composition de covariance commune r\u00e9gularis\u00e9e).<\/p>\n<h3>12.2 Pi\u00e8ges d&rsquo;interpr\u00e9tation visuelle et illusions graphiques<\/h3>\n<p>La lecture visuelle d&rsquo;un scree plot n&rsquo;est pas neutre d&rsquo;un point de vue perceptif : elle est profond\u00e9ment tributaire des choix de mise en page, du cadrage cart\u00e9sien et du ratio d&rsquo;aspect impos\u00e9 par le graphiste ou le logiciel. L&rsquo;exp\u00e9rimentateur non averti peut ais\u00e9ment \u00eatre victime de graves illusions d&rsquo;optique statistique induites par des configurations techniques inad\u00e9quates :<\/p>\n<ul>\n<li><strong>L&rsquo;effet d&rsquo;\u00e9tirement ou de compression des axes :<\/strong> L&rsquo;inclinaison de la pente de Cattell d\u00e9pend m\u00e9caniquement du ratio g\u00e9om\u00e9trique liant la hauteur de l&rsquo;axe des ordonn\u00e9es \u00e0 la largeur de l&rsquo;axe des abscisses. Un graphique artificiellement \u00e9tir\u00e9 en hauteur accentuera dramatiquement la verticalit\u00e9 apparente de la falaise, incitant le lecteur \u00e0 percevoir des coudes inexistants. Inversement, un graphique aplati horizontalement nivelle la chute spectrale, rendant la d\u00e9tection du point de rupture quasi-impossible.<\/li>\n<li><strong>Le non-d\u00e9marrage de l&rsquo;axe des ordonn\u00e9es \u00e0 z\u00e9ro :<\/strong> Tronquer l&rsquo;axe des ordonn\u00e9es pour faire d\u00e9marrer les valeurs propres \u00e0 une valeur plancher artificielle (par exemple 0,8 au lieu de 0) constitue une grave manipulation visuelle. Ce cadrage fallacieux agrandit d\u00e9mesur\u00e9ment les \u00e9carts minimes s\u00e9parant les petites valeurs propres r\u00e9siduelles, cr\u00e9ant l&rsquo;illusion visuelle trompeuse de multiples coudes au c\u0153ur m\u00eame de l&rsquo;\u00e9boulis rocheux. L&rsquo;axe des ordonn\u00e9es d&rsquo;un scree plot int\u00e8gre imp\u00e9rativement le z\u00e9ro math\u00e9matique absolu.<\/li>\n<li><strong>L&rsquo;illusion des plateaux interm\u00e9diaires :<\/strong> Lorsque deux composantes successives affichent des valeurs propres similaires au milieu de la distribution spectrale avant une nouvelle petite baisse, l&rsquo;analyste peut h\u00e9siter et sur-extraire. La r\u00e8gle fondamentale stipule qu&rsquo;un plateau fait d\u00e9j\u00e0 partie de l&rsquo;\u00e9boulis r\u00e9siduel ; le mod\u00e8le doit imp\u00e9rativement s&rsquo;arr\u00eater <strong>avant<\/strong> l&rsquo;amorce du premier palier d&rsquo;\u00e9galisation d&rsquo;inertie.<\/li>\n<\/ul>\n<h3>12.3 Normes de reporting scientifique et bonnes pratiques de science ouverte<\/h3>\n<p>Pour satisfaire aux exigences de rigueur de la science ouverte et aux standards \u00e9ditoriaux de l&rsquo;APA (7e \u00e9dition), la pr\u00e9sentation du scree plot et des analyses dimensionnelles associ\u00e9es doit ob\u00e9ir \u00e0 un protocole de transparence totale. Il n&rsquo;est plus acceptable de se contenter d&rsquo;ins\u00e9rer un graphique isol\u00e9 au sein d&rsquo;un manuscrit en affirmant dogmatiquement que le coude est manifeste sans fournir les \u00e9l\u00e9ments quantitatifs aff\u00e9rents.<\/p>\n<p>Le reporting scientifique exemplaire requiert la communication int\u00e9grale des \u00e9l\u00e9ments suivants :<\/p>\n<ol>\n<li><strong>Divulgation de la table spectrale :<\/strong> Le manuscrit doit inclure un tableau \u00e9num\u00e9rant pour chaque composante : la valeur propre extraite, le pourcentage de variance individuelle expliqu\u00e9e, et le pourcentage cumul\u00e9, permettant aux pairs de v\u00e9rifier les calculs d&rsquo;inertie ind\u00e9pendamment de la perception visuelle de la figure.<\/li>\n<li><strong>Sp\u00e9cification pr\u00e9cise de la matrice source :<\/strong> Mentionner explicitement la nature de la matrice d\u00e9compos\u00e9e (matrice de covariance brute, matrice de corr\u00e9lation de Pearson standardis\u00e9e, ou matrice de corr\u00e9lation polychorique) ainsi que l&rsquo;algorithme sous-jacent employ\u00e9 (SVD via <code>prcomp<\/code>, diagonalisation spectrale, ou factorisation en facteurs principaux).<\/li>\n<li><strong>Triangulation explicite et document\u00e9e :<\/strong> Rappeler conjointement dans le corps du texte les r\u00e9sultats obtenus pour chaque crit\u00e8re d&rsquo;arr\u00eat : le r\u00e9sultat de l&rsquo;Analyse Parall\u00e8le de Horn (avec le nombre de simulations et le percentile sp\u00e9cifi\u00e9s), le nombre de composantes au-dessus de l&rsquo;unit\u00e9 selon Kaiser, et la justification du choix final en cas de divergence marginale entre ces m\u00e9triques.<\/li>\n<li><strong>Partage reproductible du code R :<\/strong> D\u00e9poser le script complet de calcul et de visualisation sous licence libre sur un entrep\u00f4t institutionnel p\u00e9renne (Open Science Framework &#8211; OSF, Zenodo, GitHub) assorti des informations de version logicielle compl\u00e8tes issues de la commande R <code>sessionInfo()<\/code>.<\/li>\n<\/ol>\n<p>L&rsquo;application scrupuleuse de ces recommandations garantit la transparence m\u00e9thodologique du protocole d&rsquo;extraction factorielle, conf\u00e9rant aux inf\u00e9rences psychom\u00e9triques qui en d\u00e9coulent une robustesse scientifique incontestable face aux exigences de l&rsquo;\u00e9valuation par les pairs.<\/p>\n<h2>R\u00e9f\u00e9rences<\/h2>\n<ul>\n<li>Cattell, R. B. (1966). The scree test for the number of factors. <em>Multivariate Behavioral Research<\/em>, 1(2), 245\u2013276. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1207\/s15327906mbr0102_10\">https:\/\/doi.org\/10.1207\/s15327906mbr0102_10<\/a><\/li>\n<li>Guttman, L. (1954). Some necessary conditions for common-factor analysis. <em>Psychometrika<\/em>, 19(2), 149\u2013161. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/BF02289162\">https:\/\/doi.org\/10.1007\/BF02289162<\/a><\/li>\n<li>Horn, J. L. (1965). A rationale and test for the number of factors in factor analysis. <em>Psychometrika<\/em>, 30(2), 179\u2013185. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/BF02289447\">https:\/\/doi.org\/10.1007\/BF02289447<\/a><\/li>\n<li>Kaiser, H. F. (1960). The application of electronic computers to factor analysis. <em>Educational and Psychological Measurement<\/em>, 20(1), 141\u2013151. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1177\/001316446002000116\">https:\/\/doi.org\/10.1177\/001316446002000116<\/a><\/li>\n<li>Kassambara, A., &amp; Mundt, F. (2020). <em>factoextra: Extract and visualize the results of multivariate data analyses<\/em> (R package version 1.0.7). <a rel=\"noopener noreferrer\" href=\"https:\/\/CRAN.R-project.org\/package=factoextra\">https:\/\/CRAN.R-project.org\/package=factoextra<\/a><\/li>\n<li>Mahalanobis, P. C. (1936). On the generalised distance in statistics. <em>Proceedings of the National Institute of Sciences of India<\/em>, 2(1), 49\u201355. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/BF02884144\">https:\/\/doi.org\/10.1007\/BF02884144<\/a><\/li>\n<li>Revelle, W. (2023). <em>psych: Procedures for psychological, psychometric, and personality research<\/em> (R package version 2.3.9). Northwestern University. <a rel=\"noopener noreferrer\" href=\"https:\/\/CRAN.R-project.org\/package=psych\">https:\/\/CRAN.R-project.org\/package=psych<\/a><\/li>\n<li>Spearman, C. (1904). \u00ab\u00a0General Intelligence,\u00a0\u00bb objectively determined and measured. <em>The American Journal of Psychology<\/em>, 15(2), 201\u2013292. <a rel=\"noopener noreferrer\" href=\"https:\/\/www.jstor.org\/stable\/1167435\">https:\/\/www.jstor.org\/stable\/1167435<\/a><\/li>\n<li>Wickham, H. (2016). <em>ggplot2: Elegant graphics for data analysis<\/em>. Springer-Verlag. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/978-3-319-24277-4\">https:\/\/doi.org\/10.1007\/978-3-319-24277-4<\/a><\/li>\n<li>Wilkinson, L. (2005). <em>The grammar of graphics<\/em> (2nd ed.). Springer. <a rel=\"noopener noreferrer\" href=\"https:\/\/doi.org\/10.1007\/0-387-28695-0\">https:\/\/doi.org\/10.1007\/0-387-28695-0<\/a><\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>Guide acad\u00e9mique complet pour cr\u00e9er et interpr\u00e9ter un scree plot dans R \u00e9tape par \u00e9tape : ACP, variance expliqu\u00e9e, ggplot2 et crit\u00e8res psychom\u00e9triques.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","template":"","categories":[1829,5500],"tags":[6719,2688,16,2658,6718],"class_list":["post-7365","psych_stat","type-psych_stat","status-publish","hentry","category-methodologie-statistique","category-psychometrie-et-r","tag-analyse-en-composantes-principales","tag-ggplot2","tag-psychometrie","tag-r","tag-scree-plot"],"_links":{"self":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/7365","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat"}],"about":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/types\/psych_stat"}],"author":[{"embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7365"}],"version-history":[{"count":1,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/7365\/revisions"}],"predecessor-version":[{"id":7367,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=\/wp\/v2\/psych_stat\/7365\/revisions\/7367"}],"wp:attachment":[{"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7365"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7365"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/french.arabpsychology.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7365"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}