The objective of this assignment is to create a web page presentation using R Markdown that features a plot created with Plotly. The dataset used for this assignment is the mtcars dataset, and the plot type is 3D scatter plot.

Here is the top 6 records of the dataset.

                   mpg cyl disp  hp drat    wt  qsec vs am gear carb
Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1

Create a 3D scatter plot on the mtcars dataset with the plotly package. The plot shows on the NEXT SLIDE.

library(plotly)
plot_ly(x=mtcars$mpg, y=mtcars$cyl, z=mtcars$wt, type = "scatter3d", 
        mode = "markers", color = mtcars$mpg) %>%
  layout(title = "3d scatter plot on the mtcars dataset",
         scene = list(xaxis = list(title = "miles per gallon"), 
                      yaxis = list(title ="cylinder"), 
                      zaxis = list(title ="weight")),
         annotations = list(x = 1.15,
                            y = 1.05,
                            text ="miles per gallon",
                            showarrow = FALSE))