library(gapminder)
ggplot(data=gapminder, aes(x=continent))+ geom_bar()
ggplot(data=flights, aes(x=carrier))+ geom_bar(aes(fill=origin))
