Comparaison de deux tableaux

**étudiant11** · 09/05/2015, 12h13

Bonjour tout le monde,
j'ai deux tableaux qui ont les mêmes variables à comparer et à mettre le résultat dans un troisième tableau. Donc j'ai concaténer les tableaux et j'ai utiliser proc tabulate. Mais j'ai eu un souci au niveau de l'affichage de résultat
voila un exemple des tableaux que j'ai et le code que j'ai utlisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
data table1;
input variete $marque $ mois $ tariff ;
 
cards;
chocolat choco14 1 140
chocolat choco14 2 250
 
;run;
data table2;
input variete $ marque $ mois $ tarif ;
 
cards;
chocolat choco15 1 140
biscuit bg15 1 152
biscuit bg15 1 152
chocolat choco15 2 250
biscuit bs15 2 150
biscuit bs15 3 148
 
 
;run;
data concat;
set table2 table1;
 
proc format ;
value $ moiss
'1'='Janvier'
'2'='Février'
'3'='Mars';
run;
ODS TAGSETS.EXCELXP 
 
FILE='D:\Desktop\marque\test5.xls' options(Sheet_Interval="None" style="XLStatistical") ;
 
proc tabulate data=concat S=[FOREGROUND=BLACK CELLWIDTH=200 JUST=C];
 
class variete mois marque;
classlev marque /s=[CELLWIDTH=100];
var tarif;
table variete=''*marque='', mois=''*tarif=''*sum='' all=''*tarif='Total'*sum=''/  box={label='marque'  s=[ JUST=R ]}  rts=25   ;
format mois  $moiss. ;
run;
ODS TAGSETS.EXCELXP CLOSE;
ODS LISTING;

c'est ce que j'ai eu en résultat
Nom : Capture1.JPG
Affichages : 260
Taille : 22,3 Ko

Le problème est que je veux que les mêmes marques de 2015 et 2014 soient existantes dans le tableau résultat même si les tarifs sont nuls
Voila le résultat que je dois avoir
Nom : Capture1.JPG
Affichages : 295
Taille : 30,3 Ko

Nom : Capture1.JPG
Affichages : 295
Taille : 30,3 Ko

**étudiant11** · 09/05/2015, 16h20

C'est possible d'avoir le résultat avec la procédure compare?

**datametric** · 10/05/2015, 11h11

je partirai sur une table de référence qui croiserai déjà les variétés, les marques et les mois puis je mettrai dedans les tarifs issus de ces deux tables. la première pourrait s'obtenir par un CROSS JOIN ou FULL JOIN de tes deux tables puis pour le rapatriement des tarifs tu peux faire un merge ou SQL.
Ensuite tu l'affiches avec une proc PRINT ?

**étudiant11** · 10/05/2015, 15h15

Comment puis je le faire avec cross join ou full join?

**m.brahim** · 11/05/2015, 10h01

Bonjour,

Je te propose cette solution avec proc tabulate.

Une colonne des valeurs vides est apparue dans le tableau croisé. (je ne connais le moyen de la supprimer)

Si cela ne pose pas de problème, voici comment j'ai procédé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
data table1;
input variete $marque $ mois $ tarif ;
 
cards;
chocolat choco14 1 140
chocolat choco14 2 250
 
;run;
data table2;
input variete $ marque $ mois $ tarif ;
 
cards;
chocolat choco15 1 140
biscuit bg15 1 152
biscuit bg15 1 152
chocolat choco15 2 250
biscuit bs15 2 150
biscuit bs15 3 148
;run;
 
data ref;
input variete $ marque $;
cards;
chocolat choco14
chocolat choco15
biscuit bg15
biscuit bg14
biscuit bs15
biscuit bs14
;run;
 
 
proc sort data=table1; by variete marque;run;
proc sort data=table2; by variete marque;run;
proc sort data=ref; by variete marque;run;
 
data fin;
merge table1 table2 ref;
by variete marque;
run;
 
 
proc format ;
value $ moiss
'1'='Janvier'
'2'='Février'
'3'='Mars';
run;
ODS TAGSETS.EXCELXP 
 
FILE='c:\sas\test5.xls' options(Sheet_Interval="None" style="XLStatistical") ;
 
proc tabulate data=fin missing;
 
class variete mois marque;
classlev marque /s=[CELLWIDTH=100];
var tarif;
table variete=''*marque='', mois=''*tarif=''*sum='' all=''*tarif='Total'*sum=''/  box={label='marque'  s=[ JUST=R ]}  rts=25   ;
format mois  $moiss. ;
run;
ODS TAGSETS.EXCELXP CLOSE;
ODS LISTING;

Cordialement

**hossward** · 11/05/2015, 11h01

Envoyé par étudiant11

C'est possible d'avoir le résultat avec la procédure compare?

Bonjour,
NON, cette procédure ne te sert à rien car il ne s’agit pas d’une comparaison entre deux tables. Il faudrait créer des enregistrements factices avec un tarif égal à zéro dans une table «base » puis dans une nouvelle étape data l’instruction UPDATE permet de modifier tout ou partie des valeurs des colonnes de la table résultante de la concaténation (table1 et table2). Voici le code qui te permet de réaliser la table attendue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
proc format ;
value $ moiss
'1'='Janvier'
'2'='Fevrier'
'3'='Mars';
run;
 
data table1;
input variete $marque $ mois $ tarif ;
cards;
chocolat choco14 1 140
chocolat choco14 2 250
; run;	   
 
data table2;
input variete $ marque $ mois $ tarif ;
cards;
chocolat choco15 1 140
biscuit bg15 1 152
biscuit bg15 1 152
chocolat choco15 2 250
biscuit bs15 2 150
biscuit bs15 3 148
; run;	   
 
data concat;
set table2 table1;
run;	   
 
proc summary data=concat nway;
class variete marque mois ;
var tarif;
output out=Summary_concat(drop=_type_ _freq_)  sum=;
run;	   
 
proc sort data=Summary_concat ; 
by variete marque mois; 
run ;
 
/* création des enregistrements factices avec un tarif nul */
data base (drop=an bisc) ;
do variete='chocolat', 'biscuit' ;
do an=14 to 15 by 1 ;
do mois='1', '2', '3' ;
tarif=0 ;
if      variete='chocolat' then do ; marque=cats('choco', an) ; output ; end ;
else if variete='biscuit'  then do bisc='bg', 'bs'; 
                                     marque=cats(bisc, an) ; output ; 
                              end ;
end ;
end ;
end ;
run ;	  
 
proc sort data=base ; by variete marque mois; run ;
 
data update_Summary_concat ;
update base Summary_concat ;
by variete marque mois ;
format mois  $moiss.; 
run;    
 
proc tabulate data= update_Summary_concat S=[FOREGROUND=BLACK CELLWIDTH=200 JUST=C];
class variete mois marque;
classlev marque /s=[CELLWIDTH=100];
var tarif;
table variete=''*marque='', mois=''*tarif=''*sum='' all=''*tarif='Total'*sum=''/  box={label='marque'  s=[ JUST=R ]}  rts=25   ;
run;

Ward

**étudiant11** · 12/05/2015, 03h35

Merci pour vos réponses mais ça peut fonctionner seulement avec des petites bases , par contre ce que j'ai c'est une grande base avec des milliers de marques. Est ce que y a un autre moyen pour le faire sans spécifier à chaque fois les noms de marques?

**m.brahim** · 12/05/2015, 13h05

Bonjour,

Je te propose cette solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
data table1;
input variete $marque $ mois $ tarif ;
 
cards;
chocolat choco14 1 140
chocolat choco14 2 250
test ts14 2 250
 
;run;
 
data table2;
input variete $ marque $ mois $ tarif ;
 
cards;
chocolat choco15 1 140
biscuit bg15 1 152
biscuit bg15 1 152
biscuit cs15 1 152
biscuit dd15 2 152
biscuit af15 1 152
biscuit gb15 3 152
chocolat choco15 2 250
biscuit bs15 2 150
biscuit bs15 3 148
marque gs14 1 157
marque2 aa14 2 157
 
;run;
 
proc sort data=table1; by variete marque;run;
 
proc sort data=table2; by variete marque;run;
 
 
data table3;
merge table1 table2 ;
by variete marque;
run;
 
data table4 ;
set table3;
marque1=left(scan(marque,1,(compress(marque,,'A'))));
 
run;
 
 
data table5  ;
set table4;
do an=14 to 15 by 1 ;
tarif=0 ;
marque2=cats(marque1,an) ;output;
end;
 
run ;
 
data table6;
set table5 table4;
if tarif =0  then marque = marque2;
run;
 
 
 
proc tabulate data= table6 S=[FOREGROUND=BLACK CELLWIDTH=200 JUST=C] missing;
class variete mois marque;
classlev marque /s=[CELLWIDTH=100];
var tarif;
table variete=''*marque='', mois=''*tarif=''*sum='' all=''*tarif='Total'*sum=''/  box={label='marque'  s=[ JUST=R ]}  rts=25   ;
run;
 
 
proc datasets lib=WORK;
delete tab:;
run;

Cordialement

**étudiant11** · 12/05/2015, 18h32

merci brahim, mais j'ai un petit souci au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

produit1=left(scan(produit,1,(compress(produit,,'A '))));

En fait les noms de marques que j'ai dans ma base contiennent des espaces par exemple biscuit saida donc avec ce code il ne prend en considération que biscuit

**m.brahim** · 12/05/2015, 19h58

Voici la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
data table1;
input variete $marque $ mois $ tarif ;
 
cards;
chocolat choco14 1 140
chocolat choco14 2 250
test ts14 2 250
 
;run;
 
 
data table2;
input variete $ marque $ mois $ tarif ;
 
cards;
chocolat choco15 1 140
biscuit  bg15 1 152
biscuit bg15 1 152
biscuit cs15 1 152
biscuit dd15 2 152
biscuit af15 1 152
biscuit gb15 3 152
chocolat choco15 2 250
biscuit bs15 2 150
biscuit bs15 3 148
marque gs14 1 157
marque2 aa14 2 157
 ;run;
 
 DATA table2 ;
 length marque $20.;
   SET table2 end=fini ;
   output table2 ;
   IF fini then do ;
       variete="biscuit" ;
       marque="biscuit saida15" ;
	   mois="1";tarif=122;
 
       output table2 ;
   end ;
run ;
 
proc sort data=table1; by variete marque;run;
 
proc sort data=table2; by variete marque;run;
 
 
data table3;
merge table1 table2 ;
by variete marque;
run;
 
data table4 ;
set table2;
marque1=left(scan(marque,1,(compress(compress(marque),,'A'))));
 
run;
 
 
data table5  ;
set table4;
do an=14 to 15 by 1 ;
tarif=0 ;
marque2=cats(marque1,an) ;output;
end;
 
run ;
 
data table6;
set table5 table4;
if tarif =0  then marque = marque2;
run;
 
 
 
proc tabulate data= table6 S=[FOREGROUND=BLACK CELLWIDTH=200 JUST=C] missing;
class variete mois marque;
classlev marque /s=[CELLWIDTH=100];
var tarif;
table variete=''*marque='', mois=''*tarif=''*sum='' all=''*tarif='Total'*sum=''/  box={label='marque'  s=[ JUST=R ]}  rts=25   ;
run;

Cordialement

**étudiant11** · 12/05/2015, 20h53

Je vous remercie pour vos réponses c'est bon

Heureusement que vous êtes là

Comparaison de deux tableaux

SAS STAT

Discussions similaires

Partager

Partager