Bar Chart Using an Evaluation Function (GPL)

Figure 1. GPL using an evaluation function to calculate mean percentage increase

* Open sample file Employee Data.sav.
GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=salbegin salary jobcat gender
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  SOURCE: s=userSource(id("graphdataset"))
  DATA: salbegin = col(source(s), name("salbegin"))
  DATA: salary = col(source(s), name("salary"))
  DATA: jobcat = col(source(s), name("jobcat"), unit.category())
  DATA: gender = col(source(s), name("gender"), unit.category())
  TRANS: saldiff = eval(((salary-salbegin)/salary)*100)
  COORD: rect(dim(1, 2), cluster(3))
  SCALE: linear(dim(2), include(0))
  GUIDE: axis(dim(2), label("Mean Percentage Salary Increase"))
  GUIDE: axis(dim(3), label("Employment Category"))
  GUIDE: legend(aesthetic(aesthetic.color.interior), label("Gender"))
  ELEMENT: interval(position(summary.mean(gender*saldiff*jobcat)),
                    color.interior(gender))
END GPL.

Figure 3. GPL using an evaluation function to calculate percent less than a value

* Open sample file Employee Data.sav.
GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=salary jobcat
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  SOURCE: s=userSource(id("graphdataset"))
  DATA: salary = col(source(s), name("salary"))
  DATA: jobcat = col(source(s), name("jobcat"), unit.category())
  TRANS: greaterThan = eval(salary < 40000)
  SCALE: linear(dim(2), include(0))
  GUIDE: axis(dim(1), label("Employment Category"))
  GUIDE: axis(dim(2), label("% < 40000 Salary"))
  ELEMENT: interval(position(summary.percentTrue(jobcat*greaterThan)))
END GPL.