Update compareplot.R