Revised statplot.R