EPS: rangesweep2.eps

Script: make-rangesweep2.tcl

# source the library
source zplot.tcl
namespace import Zplot::*

# define the canvas
PsCanvas -title "rangesweep2.eps" -width 300 -height 240

# read in the data
Table -table all -file "data.rangesweep2"
Table -table a -columns c0,c1,c2,c3,c4,c5
Table -table b -columns c0,c1,c2,c3,c4,c5
TableSelect -from all -to a -where {[StringEqual $c1 a]} -fcolumns c0,c1,c2,c3,c4,c5 -tcolumns c0,c1,c2,c3,c4,c5
TableSelect -from all -to b -where {[StringEqual $c1 b]} -fcolumns c0,c1,c2,c3,c4,c5 -tcolumns c0,c1,c2,c3,c4,c5

# make a drawable
Drawable -xrange "0,120" -yrange "0,100" -coord 40, -dimensions 250,

# now plot the data
PlotVerticalFill -table a -xfield c0 -yfield c5 -ylofield c4 -fillcolor blue -legend "Treatment A"
PlotVerticalFill -table b -xfield c0 -yfield c5 -ylofield c4 -fillcolor red -legend "Treatment B"
PlotLines -table a -xfield c0 -yfield c2 -linewidth 0.5
PlotLines -table b -xfield c0 -yfield c2 -linewidth 0.5 -linedash 4,2
PlotPoints -table a -xfield c0 -yfield c2 -style circle -fill t -fillcolor black -linewidth 0.25
PlotPoints -table b -xfield c0 -yfield c2 -style circle -linewidth 0.25

# axes
AxesTicsLabels -yauto ,,10 -xauto ,,12 -xtitle "Follow-up Time (months)" -ytitle "Average Night Driving Score"
Legend -coord 6,15

# labels
Label -coord 60,104 -text "Average Night Driving Score" -fontsize 6
Label -coord 60,99 -text "With Missing Values Imputed Using Approximate Bayesian Bootstrap" -fontsize 6
Label -coord 60,94 -text "and 10% Lower on Average than Observed Values" -fontsize 6

# all done
PsRender -file rangesweep2.eps

Data: data.rangesweep2