Working with plotly

We are going to do following with Diamonds dataset.

• Data wrangling
• Data Visualization

library(ggplot2)
library(dplyr)

diamonds <- diamonds %>% 
              filter(cut=="Ideal") %>% 
              select(carat, cut, color, price, clarity) %>% 
              mutate(price_per_carat = price/carat)