ggplot(data = diamonds,aes(x=price)) + geom_histogram(fill="green",col="red")
ggplot(data = diamonds,aes(x=price)) + geom_histogram(fill="green",col="red",bins = 10)
ggplot(data = diamonds,aes(x=cut)) + geom_bar () ggplot(data = diamonds,aes(x=cut)) + geom_bar (fill="palegreen",col="orange")
table(diamonds$cut) Fair Good Very Good Premium Ideal 1610 4906 12082 13791 21551
ggplot(data = diamonds,aes(x=carat,y=price)) + geom_point() ggplot(data = diamonds,aes(x=carat,y=price)) + geom_point (col="orange")
ggplot(data = diamonds,aes(x=carat,y=price,col=price)) + geom_point ()
ggplot(data = diamonds,aes(x=carat,y=price,col=cut)) + geom_point ()
ggplot(data = diamonds,aes(x=clarity,y=carat,col=cut)) + geom_boxplot() ggplot(data = diamonds,aes(x=clarity,y=carat,fill=clarity)) + geom_boxplot() ggplot(data = diamonds,aes(x=clarity,y=carat)) + geom_boxplot()
ggplot(data = diamonds,aes(x=price)) + geom_histogram (fill="khaki3",col="lavenderblush4") ggplot(data = diamonds,aes(x=price,fill=price)) + geom_histogram ()