Create a web page presentation using R Markdown that features a plot created with Plotly:
library(ggplot2)
library(plotly)
set.seed(04-02-2017)
hair_eye = as.data.frame(HairEyeColor)
plot_ly(data =hair_eye, x=~Hair, y=~Eye, z = ~Freq, type="scatter3d", color = as.factor(hair_eye$Sex))