Histogram with Dot Plot (GPL)

Figure 1. GPL for histogram with dot plot

* Open sample file Employee Data.sav.
GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=salary
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  SOURCE: s=userSource(id("graphdataset"))
  DATA: salary = col(source(s), name("salary"))
  GRAPH: begin(origin(5.0%, 5.0%), scale(90.0%, 90.0%))
  COORD: rect(dim(1, 2))
  ELEMENT: interval(position(summary.count(bin.rect(salary))),
                    transparency.interior(transparency."0.9"))
  GRAPH: end()
  GRAPH: begin(origin(5.0%, 5.0%), scale(90.0%, 90.0%))
  COORD: rect(dim(1))
  GUIDE: axis(dim(1), ticks(null()))
  GUIDE: axis(dim(2), ticks(null()))
  ELEMENT: point.dodge.asymmetric(position(bin.dot(salary)))
  GRAPH: end()
END GPL.