How to create racing bar charts in R