Dual Axis Graph (GPL)

Figure 1. GPL for dual axis graph

* Open sample file Employee Data.sav.
GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=jobcat salary
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  SOURCE: s=userSource(id("graphdataset"))
  DATA: jobcat = col(source(s), name("jobcat"), unit.category())
  DATA: salary = col(source(s), name("salary"))
  SCALE: y1 = linear(dim(2), include(0.0))
  SCALE: y2 = linear(dim(2), include(0.0))
  GUIDE: axis(dim(1), label("Employment Category"))
  GUIDE: axis(scale(y1), label("Mean Salary"))
  GUIDE: axis(scale(y2), label("Count"), opposite(), color(color.red))
  ELEMENT: interval(position(summary.mean(jobcat*salary)), scale(y1))
  ELEMENT: line(position(summary.count(jobcat)), color(color.red), scale(y2))
END GPL.