Plt Barplot Function In R