Data Analysis in R Bar Plot using the ggplot function I