Ggplot histogram object from vector of counts

plot_hist.R

library(ggplot2)

plot_hist <- function(counts, title = "Histogram") {
  fdf <- as.data.frame(table(counts))
  
  pl <- (ggplot(fdf,aes(x=counts,y=Freq,ymin=0,ymax=Freq))
         + 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
}