Update q4plot.R