Create q1plot.R