Percentage Bar Plot In R