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
| /*mon jeu de donné est le suivant, il contient deux variable 'var1' et 'moy_var'=moyenne variable1
j'ai la variable1 qui a les modalités TDP_1_Mean, TDP_2_Mean,....TDP_10_Mean, donc 10 modalités (10 variables sur les 10 axes du radar), pour chacune on avait calculé sa moyenne qu'on affecte à la variable 'moy_var1'*/
data radar;
input var1$ moy_var1;
datalines;
TDP_1_Mean 90.15
TDP_2_Mean 40.12
TDP_3_Mean 20
TDP_4_Mean 15
TDP_5_Mean 64.15
TDP_6_Mean 75.12
TDP_7_Mean 45.19
TDP_8_Mean 73.58
TDP_9_Mean 78.56
TDP_10_Mean 58.02
;
run;
/*Le radar que je devrais tracer doit avoir 10 axes, sur chaque axe doit se trouver les variables TDP_1_Mean, ...TDP_10_Mean qui doivent apparaitre à l'extrémité de chaque axe, également, les valeurs moyennes (la variable 'moy_var1' doivent appareitre sur les sommets de mon radar, voir encore le 2ème graphe*/
goptions reset=all device=activex ftext=swissb ;
title1 j=c h=13pt 'Indicateur du dossier patient';
title2 j=c h=10pt 'Année 2009';
axis1 value=(h=1 c=cx00cc00);
axis2 value=(h=2 c=cx00cc00) ;
axis3 value=(h=3 c=cx00cc00) ;
axis4 value=(h=4 c=cx00cc00) ;
axis5 value=(h=5 c=cx00cc00) ;
axis6 value=(h=6 c=cx00cc00) ;
axis7 value=(h=7 c=cx00cc00) ;
axis8 value=(h=8 c=cx00cc00) ;
axis9 value=(h=9 c=cx00cc00) ;
axis10 value=(h=10 c=cx00cc00);
/*je dois graduer chaque axe de 0 à 100 car la variable "var1" est noté de 0 à 100, TDP_1_Mean et TDP_2_Mean....c'étaient des moyennes)
axis1 order = (0 to 100 by 20);
axis2 order = (0 to 100 by 20);
axis3 order = (0 to 100 by 20);
axis4 order = (0 to 100 by 20);
axis5 order = (0 to 100 by 20);
axis6 order = (0 to 100 by 20);
axis7 order = (0 to 100 by 20);
axis8 order = (0 to 100 by 20);
axis9 order = (0 to 100 by 20);
axis10 order = (0 to 100 by 20);
/*TDP_1_Mean, ....TDP_10_Mean sont des libellés illisibles, je dois alors leur donner un libellé complet*/
axis1 label=('Présence d’’un document relatif à l’admission’);
axis2 label = (‘Contenu de l’examen médical d’entrée noté’’);
axis3 label= (‘Prescriptions médicamenteuses établies pendant l’hospitalisation conforme’) ;
axis3 label =(‘Présence d’un (ou des) compte(s) rendu(s) opératoire(s)) ;
axis4 label=(‘Présence d’un compte rendu d’accouchement’) ;
axis5 label=(‘Présence d’un dossier d’anesthésie’) ;
axis6 label=(‘Trace écrite d’un traitement de sortie’) ;
axis7 label=(‘Présence d’un courrier de fin d’hospitalisation’) ;
axis8 label=(‘Présence d’un courrier de fin d’hospitalisation conforme’) ;
axis9 label=(‘Dossier organisé et classé’) ;
axis10 label=(‘Présence d’un document relatif à l’admission’) ;
/*Je procède laors à tracer le radar*/
PROC GRADAR DATA =radar;
note height=4 color=red 'Red Tide'
color=blue ' Effects on Coastal Fishing';
CHART var1
/ FREQ=moy_var1
staraxis=(axis1 axis2 axis3 axis4 axis5 axis6 axis7 axis8 axis9 axis10) /*permet de mettre une forme par axe staraxis=(axis1, axis1, axe3 etc jusqua 13 dans notre cas)*/
starfill=(solid) /* colori l'intérieur autre option empty*/
STARTYPE=WEDGE /* forme de l'étoile*/
cframe=white /*trame de fond*/
starcircles=(1) /* cerle selon le % des valeurs*/
;
/* -------------------------------------------------------------------
Fin du code de la tâche.
------------------------------------------------------------------- */
RUN; QUIT; |
Tracer un graphe radar (certaines options clés me manquent)
Répondre avec citation
Envoyé par datametric
Partager