Create q3plot.R