Discussion :

[Guyguy La Tambouille]

Bonjour à tous,

J'ai récemment utilisé la procédure NETDRAW afin d'obtenir une logigramme. Celle-ci semble fonctionner, mais la mise en page ne me convient pas vraiment (car trop peu lisible)...
Auriez vous une solution ?

Je vous joins ici mon code SAS utilisé :

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
/*INDICATIONS DES ACTES - ANNEE 2013*/
options orientation=landscape;
goption reset=all;
goption ftext=simplex htext=1 /*hpos=80 vpos=80*/ border;
ods rtf startpage = NOW;
data orga1;
        format parent $12. child $8. id $35. idd $70. _pattern 1.;
        input parent $ child $ id $ idd & _pattern;
        text=dequote(quote(tranwrd(id,"_"," ")));
        chiffre=compbl(dequote(resolve(quote(tranwrd(idd,"@@","  ")))));
datalines;
coroETangio PREMIERS   Totalite_des_soins_en_France       N = 60000 (100%)      1
coroETangio SECONDSS   Totalite_des_soins_en_France       N = 60000 (100%)      1
PREMIERS    C_ISCH     Premiers_soins                     n = 45000 (75%)       2
PREMIERS    C_AUTRE    Premiers_soins                     n = 45000 (75%)       2
SECONDSS    A_ISCH     Deuxieme_soins                     n = 15000 (25%)       2
SECONDSS    A_AUTRE    Deuxieme_soins                     n = 15000 (25%)       2
C_ISCH      .          Motif_premiers                     n = 25000 (56%)       3
C_AUTRE     .          Motif_autre                        n = 20000 (44%)       3
A_ISCH      exam1      Motif_premiers                     n = 5000 (33%)        3
A_ISCH      exam2      Motif_premiers                     n = 5000 (33%)        3
A_ISCH      exam3      Motif_premiers                     n = 5000 (33%)        3
A_AUTRE     .          Motif_autre                        n = 10000 (66%)       3
exam1       .          STEMI_n=...                        @@                    4
exam2       .          NSTEMI_n=...                       @@                    4
exam3       .          Autres_n=...                       @@                    4
;
pattern1 v=s c=lightred;
pattern2 v=s c=lightgreen;
pattern3 v=s c=lightblue;
pattern4 v=s c=white;
proc netdraw data=orga1 graphics /*out=Layout1 nodisplay*/;
    actnet / act=parent
             successor=child
             id=(text chiffre)
             ctext=black
             carcs=black
			 centerid
             tree
             arrowhead=0
             rectilinear
             nodefid
             nolabel
             centersubtree
             novcenter
             separatesons
             xbetween=2
             ybetween=1
             coutline=black
             lwidth=1
             rotate
             rotatetext
	     compress
             /*boxwidth=3
             separatearcs
             vpages=1
             pcompress*/;
run;
/*hpages= et vpages= */
ods rtf close;

Et voici ce que j'obtiens (du coup, ce n'est pas très lisible...):


Merci d'avance à ceux qui m'aideront !!

ps : je me suis bien sur aidé de la doc suivante
http://www.sfu.ca/sasdoc/saspdf/common/WhatsNew.pdf

[JeromeMATHIAS]

Bonjour,
je ne connaissais pas la procédure, du coup j'aurais du mal à t'aider, en revanche lorsque j'ai besoin de faire des choses semblables, j'utilise plutôt Graphviz d'AT&T Research qui a la bonne propriété de faire la mise en page "presque" tout seul. Au cas ou tu renonce de le faire sous SAS ça peut-être une piste pour toi.

Bon courage.

[m.brahim]

Bonjour,

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
 
 
proc template;
   define style styles.sasref_rtf;
      parent = styles.rtf;
      replace body from document /
          bottommargin = _undef_
          topmargin = _undef_
          rightmargin = _undef_
          leftmargin = _undef_;
   end;
run;
options bottommargin = 0 cm
        topmargin    = 0 cm
        rightmargin  = 0 cm
        leftmargin   = 0 cm;
 
goptions hsize=10 in vsize=5 in
         rotate=landscape;
 
 
goption ftext=simplex htext=1  border;
ods rtf file ='c:\sas\test.rtf' style=styles.sasref_rtf startpage = NOW;
data orga1;
        format parent $12. child $8. id $35. idd $70. _pattern 1.;
        input parent $ child $ id $ idd & _pattern;
        text=dequote(quote(tranwrd(id,"_"," ")));
        chiffre=compbl(dequote(resolve(quote(tranwrd(idd,"@@","  ")))));
datalines;
coroETangio PREMIERS   Totalite_des_soins_en_France       N = 60000 (100%)      1
coroETangio SECONDSS   Totalite_des_soins_en_France       N = 60000 (100%)      1
PREMIERS    C_ISCH     Premiers_soins                     n = 45000 (75%)       2
PREMIERS    C_AUTRE    Premiers_soins                     n = 45000 (75%)       2
SECONDSS    A_ISCH     Deuxieme_soins                     n = 15000 (25%)       2
SECONDSS    A_AUTRE    Deuxieme_soins                     n = 15000 (25%)       2
C_ISCH      .          Motif_premiers                     n = 25000 (56%)       3
C_AUTRE     .          Motif_autre                        n = 20000 (44%)       3
A_ISCH      exam1      Motif_premiers                     n = 5000 (33%)        3
A_ISCH      exam2      Motif_premiers                     n = 5000 (33%)        3
A_ISCH      exam3      Motif_premiers                     n = 5000 (33%)        3
A_AUTRE     .          Motif_autre                        n = 10000 (66%)       3
exam1       .          STEMI_n=...                        @@                    4
exam2       .          NSTEMI_n=...                       @@                    4
exam3       .          Autres_n=...                       @@                    4
;
pattern1 v=s c=lightred;
pattern2 v=s c=lightgreen;
pattern3 v=s c=lightblue;
pattern4 v=s c=white;
 
proc netdraw data=orga1  ;
    actnet / act=parent
             successor=child
             id=(text chiffre) nodefid nolabel
             ctext=black
             carcs=black
	     centerid
             tree
             arrowhead=0
             rotate
             xbetween=8
             ybetween=2
             coutline=black
             lwidth=1
             rectilinear
             compress
             arrowhead=0
             rotatetext
 
             ;
run;
ods rtf close;

Cordialement

[Guyguy La Tambouille]

Merci beaucoup m.brahim !!
Grâce à votre aide je suis parvenu à obtenir ce que je souhaitais.
Et jerome_pdv2 je vous remercie également de votre intérêt et de votre avis
Donc merci encore à vous deux, et bonne continuation !!

Bien cordialement,

Guyguy.