December 31, 2017
Reproducible Pitch Presentation
The project is made on ShinyApps, using the navbarPage.
The first tab contains a linear model on the mtcars dataset, and the second tab contains the 3D-Scatter plot of galaxy dataset from ElemStatLearn package.
Thank you !! Hope you like it !!
Structure of mtcars
str(mtcars)
## 'data.frame': 32 obs. of 11 variables: ## $ mpg : num 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ... ## $ cyl : num 6 6 4 6 8 6 8 4 4 6 ... ## $ disp: num 160 160 108 258 360 ... ## $ hp : num 110 110 93 110 175 105 245 62 95 123 ... ## $ drat: num 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ... ## $ wt : num 2.62 2.88 2.32 3.21 3.44 ... ## $ qsec: num 16.5 17 18.6 19.4 17 ... ## $ vs : num 0 0 1 1 0 1 0 1 1 1 ... ## $ am : num 1 1 1 0 0 0 0 0 0 0 ... ## $ gear: num 4 4 4 3 3 3 3 4 4 4 ... ## $ carb: num 4 4 1 1 2 1 4 2 2 4 ...
Structure of galaxy
str(galaxy)
## 'data.frame': 323 obs. of 5 variables: ## $ east.west : num 8.46 7.96 7.47 6.97 6.47 ... ## $ north.south : num -38.2 -35.9 -33.7 -31.4 -29.2 ... ## $ angle : num 102 102 102 102 102 ... ## $ radial.position: num 39.1 36.8 34.5 32.2 29.9 ... ## $ velocity : int 1769 1749 1749 1758 1750 1745 1750 1753 1734 1710 ...
Plot on Tab 1
Plot :: mpg vs hp
plot(mtcars$mpg, mtcars$hp, xlab = "Miles per Gallon", ylab = "Horsepower")
Plot on Tab 2
Plot without any axes label & legends
plot_ly(x = galaxy$east.west, y = galaxy$north.south, z = galaxy$velocity, color = galaxy$radial.position, type = "scatter3d", mode = "markers")