library(ggplot2)
p <- ggplot(mpg, aes(class, hwy))
p <- p + geom_col()
print(p)
p <- ggplot(mpg, aes(class, hwy))
p <- p + geom_boxplot()
print(p)
p <- ggplot(mpg, aes(class, hwy))
p <- p + geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 0.3)
print(p)
p <- ggplot(mpg, aes(class, hwy))
p <- p + geom_violin(scale = "area")
print(p)