Update medalplot.R