Create q5plot.R