library(ggplot2)

Bar Chart

p <- ggplot(mpg, aes(fl))
p <- p + geom_bar()
print(p)