R Notebook

#Graph of cuts 
ggplot(data=diamonds)+geom_bar(mapping = aes(x=cut),color="Red",fill=I("blue"))

#Count of diamonds dataset
diamonds%>% count()

diamonds2 <- diamonds %>% 
  mutate(y = ifelse(y < 3 | y > 20, NA, y))
diamonds2

Ideal cut has smaller price so I should think of Ideal cut diamonds.

#Covariation of two variables 
ggplot(data = diamonds) +
  geom_count(mapping = aes(x = cut, y = color))

# install.packages("hexbin")
library(hexbin)
ggplot(data = smaller) +
  geom_hex(mapping = aes(x = carat, y = price))

ggplot(data = smaller, mapping = aes(x = carat, y = price)) + 
  geom_boxplot(mapping = aes(group = cut_number(carat, 20)))