multiscat

How to download and try this example

Usage: pl -gif multiscat.htm
or for postscript: pl -ps multiscat.htm  | lp

Uses the data file vf.dat


#proc page
  pagesize: 8.5 11
  #if @DEVICE in gif,png
    scale: 0.5 0.4
  #endif
  title: Correlation between test procedures
	 June, 1998

#proc getdata
 file: vf.dat

#procdef areadef
  box: 1.5 1.5
  xrange: 0 120
  yrange: 0 120
  xaxis.stubs: inc 100
  xaxis.axisline: none
  yaxis.stubs: inc 100
  yaxis.axisline: none
  frame: width=0.5 style=1 
  #saveas A

///// start with upper right hand corner plot
#proc areadef
  #clone A
  location: 1 8
  title: Group 1, 30 day

#proc line
  linedetails: width=0.5 style=1 dashscale=3
  points: min min max max
  #saveas L

#proc scatterplot
  select: @@2 = 1
  xfield: 5 
  yfield: 6
  labelfield: 3
  #if @DEVICE in gif,png
  textdetails: color=blue
  #endif
  #saveas: S

////////////////////////////
#proc areadef
  title: Group 2, 30 day
  #clone A
  location: 3.5 8

#proc line
  #clone L

#proc scatterplot
  #clone S
  select: @@2 = 2 

////////////////////////////
#proc areadef
  title: Group 3, 30 day
  #clone A
  location: 6 8

#proc line
  #clone L

#proc scatterplot
  #clone S
  select: @@2 = 3

////////////////////////////
#proc areadef
  title: Group 4, 30 day
  #clone A
  location: 1 5.5

#proc line
  #clone L

#proc scatterplot
  #clone S
  select: @@2 = 4

////////////////////////////
#proc areadef
  title: Group 5, 30 day
  #clone A
  location: 3.5 5.5

#proc line
  #clone L

#proc scatterplot
  #clone S
  select: @@2 = 5

////////////////////////////
#proc areadef
  title: Group 6, 30 day
  #clone A
  location: 6 5.5

#proc line
  #clone L

#proc scatterplot
  #clone S
  select: @@2 = 6

/////////////////////////////
#proc areadef
  title: Groups 1-4, 45 day
  #clone A
  location: 1 3

#proc line
  #clone L

#proc scatterplot
  select: @@2 in 1,2,3,4
  xfield: 7
  yfield: 8
  labelfield: 3
  #if @DEVICE in gif,png
  textdetails: color=blue
  #endif
  #saveas: S

/////////////////////////////
#proc areadef
  title: Group 5, 45 day
  #clone A
  location: 3.5 3

#proc line
  #clone L

#proc scatterplot
  #clone S
  select: @@2 = 5 

/////////////////////////////
#proc areadef
  title: Group 6, 45 day
  #clone A
  location: 6 3

#proc line
  #clone L

#proc scatterplot
  #clone S
  select: @@2 = 6

/////////////////////////////
#proc areadef
  title: Groups 1-4, 60 day
  #clone A
  location: 1 0.5

#proc line
  #clone L

#proc scatterplot
  select: @@2 in 1,2,3,4
  xfield: 10
  yfield: 11
  labelfield: 3
  #if @DEVICE in gif,png
  textdetails: color=blue
  #endif
  #saveas: S

/////////////////////////////
#proc areadef
  title: Group 5, 60 day
  #clone A
  location: 3.5 0.5

#proc line
  #clone L

#proc scatterplot
  select: @@2 = 5 
  #clone: S

/////////////////////////////
#proc areadef
  title: Group 6, 60 day
  #clone A
  location: 6 0.5

#proc line
  #clone L

#proc scatterplot
  select: @@2 = 6
  #clone: S