library(ggplot2)
ggplot(mpg)+geom_bar(aes(class),stat="count")
ggplot(mpg)+stat_count(aes(class),geom = "bar")
ggplot(mpg)+stat_count(aes(class),geom = "point",size=10,shape=12)