Plot barchart in R

plot_bar.R

plot_bar <- function(vals, title = "Histogram") {
  fdf <- as.data.frame(vals)
  
  pl <- (ggplot(fdf,aes(x=1:nrow(fdf),y=vals,ymin=0,ymax=vals))
         + geom_bar(colour="white",fill="blue",stat="identity") 
         + ggtitle(title) 
         + theme(plot.title=element_text(family="Arial", size=10))
         + theme(axis.text.x = element_text(angle = 90, hjust = 1))
  )
  
  pl
}