Create q2plot.R