Discussion :

[annabic]

Bonjour,
J'ai une base de données où 12 000 variables sont nommées "A0122_40", "A0122_45", "A0122_50" ect...
Je souhaiterais les renommer en conservant dans le nom initial les chiffres de 2 à 5. Je voudrais ensuite créer des variables additionnant toutes les colonnes ayant le même nom.
Merci de votre aide!!

[mgdondon]

Bonjour,

J'ai une base de données où 12 000 variables sont nommées "A0122_40", "A0122_45", "A0122_50" etc.
Je souhaiterais les renommer en conservant dans le nom initial les chiffres de 2 à 5. Je voudrais ensuite créer des variables additionnant toutes les colonnes ayant le même nom.

• Quelques remarques préliminaires :

• Un nom de variable ne peut pas commencer par un chiffre. Il n'est donc pas possible de conserver uniquement les chiffres de 2 à 5.
• Il n'est pas possible non plus d'avoir deux variables qui portent le même nom.

• Je comprends dans votre formulation que vous voulez additionner les variables A0122_40 et A0122_45. Est-ce bien cela ?

• Une proposition avec la proc sql (voir ce message) :

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
data test;
  input id :$6. A0122_40 A0122_45 A0122_50;
  cards;
ID0001 1 4 10
ID0002 2 8 20
;
run;
 
%macro sum_A0(name=);
  %let A0 = %sysfunc(substr(&name.,1,7));
  &A0. = sum(&A0., &name.);
%mend sum_A0;
 
proc sql noprint;
  select cats('%sum_A0(name=',name,')') into :sumlist separated by ' '
    from dictionary.columns
    where libname='WORK' and memname='TEST'
          and name like 'A0%';
quit;
 
data test_out;
   set test;
   &sumlist;
run;

• Une proposition avec la proc transpose (voir ce message).

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
data table1;
  input id :$6. A0122_40 A0122_45 A0122_50;
  cards;
ID0001 1 4 10
ID0002 2 8 20
;
run;
 
proc transpose data=table1 out=table2;
  by id;
run;
 
data table2;
  set table2;
  by id;
  classe = substr(_name_,1,7);
run;
 
proc sort data=table2;
  by id classe;
run;
 
proc univariate data=table2 noprint;
  var col1;
  by id classe;
  output out=table3 sum=col1;
run;
 
proc transpose data=table3 out=table4(drop=_NAME_ _LABEL_);
  var col1;
  by id;
  id classe;
run;

• Pouvez-vous indiquer les temps d'exécution des deux programmes sur votre base de donnée ? Voici deux petites macros à exécuter en début et fin de programme :

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
%macro initchrono;
  data temps;
    ddeb=datetime();
    hdeb=time();
    format hdeb time.;
  run;
%mend;
 
%macro stopchrono;
  data temps;
    set temps;
    dfin=datetime();
    hfin=time();
    temps=dfin-ddeb;
    format hfin time. temps time.;
  run;
 
  proc print noobs;
    var hdeb hfin temps;
  run;
%mend;

Cordialement,

[annabic]

LA dernière est fonctionnelle.
Merci beaucoup

[mgdondon]

Bonjour,

Avez-vous essayé la proposition avec la proc sql ? Je suppose qu'elle est plus rapide. Qu'est-ce qui ne fonctionne pas ?

Cordialement,