Added mfrow=c(1,1) to insure default.
R source and resulting PNG output for a 2x2 array of plots.