plot4

this commit contains the function plot4() (and its supporting functions
defined in plot4.R), as well as the png file output by plot4().