download medal data of winter olympic, try to plot something using ggplot2