library(ggplot2)
p <- ggplot(mpg, aes(hwy))
p <- p + geom_area(stat = "bin")
print(p)
p <- ggplot(mpg, aes(hwy))
p <- p + geom_density()
print(p)
p <- ggplot(mpg, aes(hwy))
p <- p + geom_dotplot()
print(p)
p <- ggplot(mpg, aes(hwy))
p <- p + geom_freqpoly()
print(p)
p <- ggplot(mpg, aes(hwy))
p <- p + geom_histogram()
print(p)
p <- ggplot(mpg)
p <- p + geom_qq(aes(sample = hwy))
print(p)