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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
<html><h1>timely</h1><img src="timely.gif"><p>
<a href="gall.using.html">How to download and try this example</a><br>
<pre><b>Usage: pl -gif timely.htm
Uses the data file <a href="timely.dat">timely.dat</a>
<hr></b>
//<b> do page title using <a href="../doc/page.html">proc page</a></b>
#proc page
pagesize: 8.5 11
#if @DEVICE in gif,png
scale: 0.5
#endif
title: Timeliness of Problem Resolution, By Center
03-31-99
//<b> do column headers using <a href="../doc/annotate.html">proc annotate</a>
// and <a href="../doc/line.html">proc line</a></b>
#proc annotate
location: 1 9.2
textdetails: align=C size=10
text: CENTER
#proc line
points 0.7 9 1.3 9
#proc annotate
location: 1.9 9.75
textdetails: align=C size=10
text: Number of
Problems
Reported &
Resolved
#proc line
points 1.5 9 2.3 9
//<b> read in data file using <a href="../doc/getdata.html">proc getdata</a></b>
#proc getdata
file: timely.dat
//<b> keep only fields 3 and 9 using <a href="../doc/transform.html">proc processdata</a></b>
#proc processdata
keepfields: 3 9
// <b> define the plotting area and do Y axis using <a href="../doc/areadef.html">proc areadef</a></b>
#proc areadef
rectangle: 2.5 2 7.5 9.0
axes: Y
xrange: 0 90
yscaletype: categories
ycategories:
01 Sea
02 Alb
06 NY
07 Buf
08 DC
09 Orl
10 Hou
11 Cin
13 Chi
15 Tor
16 LV
18 Mon
19 Rch
20 Nor
21 NO
22 Mai
\
All
yaxis.stubdetails: align=L adjust=-1.5,0 size=10
yaxis.axisline: yes
yaxis.ticlen: 0
yaxis.stubs: usecategories
// <b> do an X axis on bottom and top using <a href="../doc/axis.html">proc xaxis</a></b>
#proc xaxis
grid: color=green
label: Number of days
#saveas: AX
stubs: inc 20
// do a second x axis across the top..
#proc xaxis
#clone: AX
location: max
stubdetails: adjust=0,0.3
labeldetails: adjust=0,0.7
// <b>do rangebar for all clinics using <a href="../doc/rangebar.html">proc rangebar</a></b>
#proc rangebar
axis: x
barloc: All
datafield: 2
mediansym: shape=circle fillcolor=0.2 style=filled radius=0.05
nlocation: 1.9
barwidth: 0.15
nword: N=@@N
tailmode: 5/95
textdetails: size=10
#saveas: B
#loop
#set CEN = $nextstub(2)
#if $strlen(@CEN) < 1
#break
#endif
#proc print
label: @CEN
// <b>do rangebar for each center using <a href="../doc/rangebar.html">proc rangebar</a></b>
#proc rangebar
#clone B
select: @@1 = @CEN
barloc: @CEN
showoutliers: yes
#endloop
// <b>do annotations at bottom of page using <a href="../doc/annotate.html">proc annotate</a></b>
#proc annotate
location: 1 1.4
textdetails: align=L
text:
Dot = median.
Box = 25th through 75th percentile.
Tails = 5th and 95th percentile.
Outliers are marked with a circle or asterisk.
\
\
Includes only 2-year-contracted centers.
|
