This Presentation is for the Week 3 Peer Assignment
which includes an interactive plot between
diamond and carat ( both in Scatter Plot and Density PLot)

Scatter Plot

plot_ly(d, x = ~carat, y = ~price, color = ~price, type = "scatter", mode = "markers") %>%
        layout(title="Diamond price via carat - plotly Scatterplot")

Density Plot

g <- ggplot(d, aes(price, fill = cut)) + geom_density(alpha = 0.3)
g <- g + ggtitle("Diamond prices - densitiy plot via ggplotly")
gly <- ggplotly(g)
gly