fix geom_bar when position=dodge

Detail: Do you know `paste0()`?