Create q6plot.R