Week 3 Assignment-R Markdown Presentation & Plotly

Sakib Shahriar
28th March 2019

Slide With Plot

Slide With Code

set.seed(100)
d <- diamonds[sample(nrow(diamonds), 1000), ]
p=plot_ly(d, x = ~carat, y = ~price, color = ~carat,
    size = ~carat, text = ~paste("Clarity: ", clarity))
htmlwidgets::saveWidget(as.widget(p), file = "demo.html")