colorgrid

How to download and try this example

Usage: pl -gif colorgrid.htm

This demonstrates a color grid rendered directly from a data matrix.



// the following may be modified to change point shapes, sizes, etc. 
#set SYM = "shape=nicecircle radius=0.1 style=filled"
#setifnotgiven CGI = "http://ploticus.sourceforge.net/cgi-bin/showcgiargs"

// set black background..
#proc page
backgroundcolor: black
color: white

// get data..
#proc getdata
//showresults: yes
data:
	"Mammary gland"		7	23	12	8	3
	Skin     		6	12	7	4	2
	Lymph     		9	21	18	15	9
	Lung			22	15	12	3	6
	Digestive		5	11	14	7	9
	"Female reproductive"	2	4	19	2	4
	"Male reproductive"	1	3	8	7	1
	"Soft tissues"		0	2	1	0	0
	Endocrine		0	3	4	11	0

// set up plotting area..
#proc areadef
rectangle: 3 1 5 4
yscaletype: categrories
ycategories: datafield=1
yaxis.stubs: usecategories
yaxis.tics: none
yaxis.axisline: none
yaxis.stubdetails: adjust=0.25,0
xrange: 0 6
xaxis.location: max+0.08
xaxis.stubs: list A\nB\nC\nD\nE
xaxis.tics: none
xaxis.axisline: none
xaxis.label: Test Group
xaxis.labeldetails: adjust=0,0.4


// set up legend entries for color gradients..
#proc legendentry
sampletype: symbol
details: fillcolor=orange @SYM
label: >20
tag: 21
  
#proc legendentry
sampletype: symbol
details: fillcolor=red @SYM
label: 11-20
tag: 11

#proc legendentry
sampletype: symbol
details: fillcolor=lightpurple @SYM
label: 6-10
tag: 6

#proc legendentry
sampletype: symbol
details: fillcolor=blue @SYM
label: 1-5
tag: 1
 
#proc legendentry
sampletype: symbol
details: fillcolor=black @SYM style=outline linecolor=gray(0.8)
label: None
tag: 0



// loop through the 5 groups (data fields), doing a legend-driven scatterplot
// for each, using a fixed X location..

#set FLD = 2
#for GROUP in A,B,C,D,E

  #set XLOC = $arith(@FLD-1)
  // #set SELECT = "@" @FLD " > 0"

  #proc scatterplot
  xlocation: @XLOC(s)
  yfield: 1
  symrangefield: @FLD
  clickmapurl: @CGI?group=@GROUP&site=@@1&
  // select: @SELECT

  // increment..
  #set FLD = $arith( @FLD+1 )

#endloop 


#proc legend
location: min-1 min-0.2
format: singleline
sep: 0.5
outlinecolors: yes