Week 3 Assignment

Let us create a simple scatterplot.

require(ggplot2)
qplot(wt, mpg, data = mtcars)

p <- plot_ly(midwest, x = ~percollege, color = ~state, type = "box")
p
htmlwidgets::saveWidget(plot_ly(p), "wp.html")