cluster stack bar chart using GPL

[Samizard Dot]

Hi List,

 

I have just come to a point where I need a cluster stack bar chart with a number of different variables with one over-lapping. I have the following variables:

 

AcrossVar - this is a category variables with values 1to 3

Chart Vars - Var1, Var2, Var3, Var4

 

Situation: Var4 overlaps with the other three (Var1 to Var3). I can generate two set of charts using the following syntax. But the problem is I want them to be in one chart with six bars (2x3) - two bars (first stacked, second a simple bar) for each of the category of the across variable.

 

Any help would be appreciated.

 

.Samizard

 

GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=AcrossVar 
   MEAN(Var1) MEAN(Var2 MEAN(Var3)
   MISSING=LISTWISE REPORTMISSING=NO
   TRANSFORM=VARSTOCASES(SUMMARY="#SUMMARY" INDEX="#INDEX")
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  SOURCE: s=userSource(id("graphdataset"))
  DATA: AcrossVar=col(source(s), name("AcrossVar"), unit.category())
   DATA: SUMMARY=col(source(s), name("#SUMMARY"))
  DATA: INDEX=col(source(s), name("#INDEX"), unit.category())
  GUIDE: axis(dim(2), label("Y - Axis"))
  GUIDE: axis(dim(1), label("X-Axis"))
  GUIDE: legend(aesthetic(aesthetic.color.interior), label(""))
  SCALE: linear(dim(2), include(0))
  SCALE: cat(aesthetic(aesthetic.color.interior), include("0", "1", "2"))
  ELEMENT: interval.stack(position(AcrossVar*SUMMARY), color.interior(INDEX), shape.interior(shape.square))
 END GPL.

 

GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=AcrossVar 
   MEAN(Var4) 

   MISSING=LISTWISE REPORTMISSING=NO
   TRANSFORM=VARSTOCASES(SUMMARY="#SUMMARY" INDEX="#INDEX")
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  SOURCE: s=userSource(id("graphdataset"))
  DATA: AcrossVar=col(source(s), name("AcrossVar"), unit.category())
   DATA: SUMMARY=col(source(s), name("#SUMMARY"))
  DATA: INDEX=col(source(s), name("#INDEX"), unit.category())
  GUIDE: axis(dim(2), label("Y - Axis"))
  GUIDE: axis(dim(1), label("X-Axis"))
  GUIDE: legend(aesthetic(aesthetic.color.interior), label(""))
  SCALE: linear(dim(2), include(0))
  SCALE: cat(aesthetic(aesthetic.color.interior), include("0"))
  ELEMENT: interval.stack(position(AcrossVar*SUMMARY), color.interior(INDEX), shape.interior(shape.square))
 END GPL.