Create qplot.R