options nocenter ;
title1 h=3 j=l "Analyse Factorielle des Correspondaces AFACO (X1)*(X2)";
title2 h=2 j=l "Données MM";
title3 ; * une ligne blanche pour séparer les titres ;
footnote1 h=3 j=l 'Master Marketing Paris-Dauphine';
footnote2 h=2 j=l 'Source : Analyse des données appliquée au marketing ' j=r '2007 (c) Pierre Desmet';

data in;
	input ID $ C1-C8  ; * la somme sur une ligne doit être égale pour toutes les lignes;
cards ;
L1 15 7 26 19 12 6 2 11
L2 15 5 39 15 10 2 2 10
L3 16 7 30 13 20 5 2 6
L4 15 6 27 13 29 5 2 3
L5 15 6 32 17 18 4 2 6
L6 17 6 33 15 16 4 2 6
L7 14 6 36 17 11 2 3 11
L8 20 7 34 14 10 2 2 10
L9 17 7 35 14 17 2 3 5
;
proc print  data=in ;
title4 "1- Lecture ";

goptions reset=symbol ;

*************** analyse des correspondances des variables ***************;
proc corresp  data=in outc=corr ;
	var c1-c8; 		* si le tableau est entré en tableau croisé ;
	* Tables X1 , X2; 	* si on travaille à partir des individus ;
	id ID;
title4 "Analyse des correspondances ";

 proc print data=corr;
* profils ligne *************; 
data work ; 
	set corr;
	if _TYPE_='OBS';
		X=dim1 ;
		Y=dim2;
		color="black";
		text=ID ; * variable d'identification ;
		size=2;
		xsys='2';
		ysys='2';
		Label 	Y='Dim 2'
				X='Dim 1';
		keep X Y Xsys Ysys text size  color ;
		run;
Title4 'premier plan factoriel Profils Lignes';
Proc gplot data=work;
	symbol1 V=none i=none ;
	plot Y*X=1 / annotate=work Frame Href=0 Vref=0;
	run;
* profils colonne *************; 
data work ; 
	set corr;
	if _TYPE_='VAR';
		X=dim1 ;
		Y=dim2;
		color="black";
		text=ID ; * variable d'identification ;
		size=2;
		xsys='2';
		ysys='2';
		Label 	Y='Dim 2'
				X='Dim 1';
		keep X Y Xsys Ysys text size color ;
		run;
Title4 'premier plan factoriel Profils Colonnes';
Proc gplot data=work;
	symbol1 V=none i=none ;
	plot Y*X=1 / annotate=work Frame Href=0 Vref=0;/* annotate ajoute le label défini au dessus */
	run;

*	Proc gplot data=work;
*	symbol1 V=none pointlabel=("Ligne") ; /* point label ajoute la valeur chiffrée */
*	plot Y*X=1 /  Frame Href=0 Vref=0;
*	run;
	*/