第一部分：LEGENDITEM是自定义一个legend。

第二部分：LAYOUT LATTICE就是把画布分成了两列。ROWDATARANGE = union就是Y轴都是一个尺度。REVERSE = True从上到下，Y轴值依次增大

第三部分：画出左边的图形。tickValuePriority = True显示最末尾刻度的刻度值。

第四部分：第一个HIGHLOWPLOT是画出条形图，第二个是画出条形图中的线条。HIGHCAP是画出high的箭头，这次默认LOWCAP = NONE即low啥都没有，不画箭头啥的。三个SCATTERPLOT分别画出各种 marker。

第五部分：SIDEBAR在layout lattice中用来entry文本、显示legend。图示sidebar。

%let dpi=300;

/*--Data for Swimmer Plot--*/

data swimmer;

label response='Change from Baseline (%)';

input item stage $4-12 low high highcap $25-40 status $40-60 start end durable response;

startline=start; endline=end;

if status ne ' ' then do;

if end eq . then endline=high-0.3;

if start eq . then startline=low+0.3;

end;

if stage eq ' ' then durable=.;

datalines;

1 Stage 1 0 18.5 FilledArrow Complete response 6.5 13.5 -0.25 -50

2 Stage 2 0 17.0 Complete response 10.5 17.0 -0.25 -45

3 Stage 3 0 14.0 FilledArrow Partial response 2.5 3.5 -0.25 -22

3 0 14.0 FilledArrow Partial response 6.0 . -0.25 -22

4 Stage 4 0 13.5 FilledArrow Partial response 7.0 10.0 . -20

4 0 13.5 FilledArrow Partial response 11.5 . . -20

5 Stage 1 0 12.5 FilledArrow Complete response 3.5 4.5 -0.25 -15

5 0 12.5 FilledArrow Complete response 6.5 8.5 -0.25 -15

5 0 12.5 FilledArrow Partial response 10.5 . -0.25 -15

6 Stage 2 0 12.6 FilledArrow Partial response 2.5 7.0 . 10

6 0 12.6 FilledArrow Partial response 9.5 . . 10

7 Stage 3 0 11.5 Complete response 4.5 11.5 -0.25 -30

8 Stage 1 0 9.5 Complete response 1.0 9.5 -0.25 -25

9 Stage 4 0 8.3 FilledArrow Partial response 6.0 . . 20

10 Stage 2 0 7.2 FilledArrow Complete response 1.2 . . -42

;

run;

data attrmap;

length ID $ 9 linecolor markercolor fillcolor $ 10;

input id $ value $10-30 linecolor $ markercolor $ fillcolor $;

show='ATTRMAP';

datalines;

status Complete response darkred darkred gray

status Partial response blue blue gray

stage Stage 1 darkred darkred green

stage Stage 2 black black yellow

stage Stage 3 black black orange

stage Stage 4 black black red

;

run;

proc sort data=swimmer out=swimmer_sort;

by descending response;

run;

data swimmer_sort_2;

retain prev id 0;

set swimmer_sort;

if item ne prev then id+1;

prev=item;

durable=durable*2;

run;

ODS HTML;

/*--Horizontal Swimmer with Duration--*/

proc template;

define statgraph Swimmer_Plus_Horizontal;

begingraph / ;

entrytitle 'Tumor Response with Duration by Stage and Month';

entryfootnote halign=left 'This graph uses simulated data for illustration only' /

textattrs=(size=7pt style=italic);

*第一部分;

legenditem type=marker name='ResStart' / markerattrs=(symbol=squarefilled color=darkgray size=9)

label='Response start' ;

legenditem type=marker name='ResEnd' / markerattrs=(symbol=circlefilled color=darkgray size=9)

label='Response end';

legenditem type=marker name='RightArrow' / markerattrs=(symbol=trianglerightfilled color=darkgray size=9)

label='Continued response';

*第二部分;

layout lattice / rowdatarange=union columnweights=(0.25 0.75) columngutter=0 columns=2;

rowaxes;

rowaxis / display=none type=discrete reverse=true discreteopts=(colorbands=odd colorbandsattrs=(transparency=0.1));

endrowaxes;

*第三部分;

layout overlay / xaxisopts=(griddisplay=on tickvalueattrs=(size=6) labelattrs=(size=7)

linearopts=(tickvaluepriority=true) label='Change from Baseline (%)')

walldisplay=none;

bandplot y=id limitupper=20 limitlower=-30 / extend=true display=(outline )

outlineattrs=graphdata1(pattern=dash thickness=1);

barchartparm category=id response=response / barwidth=0.8 orient=horizontal

datalabelattrs=(size=5) dataskin=pressed ;

endlayout;

*第四部分;

layout overlay / xaxisopts=(griddisplay=on offsetmax=0.15 tickvalueattrs=(size=6)

labelattrs=(size=7) label='Duration of Treatment in Months') walldisplay=none;

highlowplot y=id low=low high=high / highcap=highcap type=bar group=stage dataskin=pressed

lineattrs=(color=black) name='stage' barwidth=1.0 includemissinggroup=false datatransparency=0.3;

highlowplot y=id low=startline high=endline / group=status lineattrs=(thickness=2 pattern=solid)

name='status' includemissinggroup=false;

scatterplot y=id x=durable / markerattrs=(symbol=squarefilled size=6 color=black) name='Durable' legendlabel='Durable responder';

scatterplot y=id x=start / markerattrs=(symbol=squarefilled size=8) group=status;

scatterplot y=id x=end / markerattrs=(symbol=circlefilled size=8) group=status;

/* discretelegend 'stage' / valign=top title='Disease Stage' border=false title='Stage:';*/

discretelegend 'status' 'Durable' 'ResStart' 'ResEnd' 'RightArrow' / valueattrs=(size=9)

halign=right valign=top border=false location=inside across=1 itemsize=(linelength=20);

endlayout;

*第五部分;

sidebar / align=top spacefill=true;

discretelegend 'stage' / title='Disease Stage:' border=false;

endsidebar;

endlayout;

endgraph;

end;

run;

ods graphics / reset width=9in height=5in imagename='Swimmer_Plus_Horizontal';

proc sgrender template=Swimmer_Plus_Horizontal data=swimmer_sort_2 dattrmap=attrmap;

/*format duration 3.0;*/

label response='Response';

dattrvar stage='stage' status='status';

run;

/*--Vertical Swimmer with Duration--*/

proc template;

define statgraph Swimmer_With_Response_Vertical;

begingraph / ;

entrytitle 'Tumor Response with Duration by Stage and Month';

entryfootnote halign=left 'This graph uses simulated data for illustration only' /

textattrs=(size=7pt style=italic);

legenditem type=marker name='ResStart' / markerattrs=(symbol=squarefilled color=darkgray size=7)

label='Response start';

legenditem type=marker name='ResEnd' / markerattrs=(symbol=circlefilled color=darkgray size=7)

label='Response end';

legenditem type=marker name='RightArrow' / markerattrs=(symbol=trianglefilled color=darkgray size=12)

label='Continued response';

layout lattice / columndatarange=union rowweights=(0.6 0.4) rowgutter=0;

columnaxes;

columnaxis / display=none type=discrete discreteopts=(colorbands=odd colorbandsattrs=(transparency=0.1));

endcolumnaxes;

layout overlay / yaxisopts=(griddisplay=on offsetmax=0.15 tickvalueattrs=(size=7)

labelattrs=(size=8) label='Duration of Treatment in Months') walldisplay=none;

highlowplot x=id low=low high=high / group=stage highcap=highcap type=bar dataskin=pressed

lineattrs=(color=black) name='stage' barwidth=0.8

includemissinggroup=false datatransparency=0.3;

highlowplot x=id low=startline high=endline / group=status lineattrs=(thickness=2 pattern=solid)

name='status' includemissinggroup=false;

scatterplot x=id y=durable / markerattrs=(symbol=squarefilled size=6 color=black) name='Durable' legendlabel='Durable responder';

scatterplot x=id y=start / markerattrs=(symbol=squarefilled size=8) group=status;

scatterplot x=id y=end / markerattrs=(symbol=circlefilled size=8) group=status;

discretelegend 'stage' / title='Disease Stage' valign=top border=false title='Stage:';

discretelegend 'status' 'Durable' 'ResStart' 'ResEnd' 'RightArrow' / order=columnmajor

halign=left valign=top border=false

location=inside down=3 itemsize=(linelength=20);

endlayout;

layout overlay / yaxisopts=(griddisplay=on tickvalueattrs=(size=7) labelattrs=(size=8) offsetmax=0

linearopts=(tickvaluepriority=true) label='Change from Baseline (%)')

walldisplay=none;

bandplot x=id limitupper=20 limitlower=-30 / extend=true display=(outline)

outlineattrs=graphdata1(pattern=dash thickness=1);

barchartparm category=id response=response / barwidth=0.5

datalabelattrs=(size=5) dataskin=pressed ;

endlayout;

endlayout;

endgraph;

end;

run;

ods graphics / reset width=9in height=5in imagename='Swimmer_Plus_Vertical';

proc sgrender template=Swimmer_With_Response_Vertical data=swimmer_sort_2 dattrmap=attrmap;

/*format duration 3.0;*/

label response='Response';

dattrvar stage='stage' status='status';

run;