ShinyAppPresentation

Eric

About this Shiny Project

This project is to design a ShinyApp for end users. This app outputs the predicted qsec value to the end user in the bar chart format. As part of the marking criteria, share the application link by pasting it into the provided text box, and share the server.R and ui.R code on github.

How to use this App

Using the data provided by mtcars dataset, a linear model was fitted to predict qsec value based on the cylinder number, car weight, and transmission type.

The application is running on (https://ericshinyjourney.shinyapps.io/ShinyAppforfun/)

ui.R, and Server.R Code in my github repository (https://github.com/EricDataNerd/ShinyAppforfun.git)

mtcars Dataset

The data used in the app comes from the mtcars dataset.

data(mtcars)
summary(mtcars)

      mpg             cyl             disp             hp       
 Min.   :10.40   Min.   :4.000   Min.   : 71.1   Min.   : 52.0  
 1st Qu.:15.43   1st Qu.:4.000   1st Qu.:120.8   1st Qu.: 96.5  
 Median :19.20   Median :6.000   Median :196.3   Median :123.0  
 Mean   :20.09   Mean   :6.188   Mean   :230.7   Mean   :146.7  
 3rd Qu.:22.80   3rd Qu.:8.000   3rd Qu.:326.0   3rd Qu.:180.0  
 Max.   :33.90   Max.   :8.000   Max.   :472.0   Max.   :335.0  
      drat             wt             qsec             vs        
 Min.   :2.760   Min.   :1.513   Min.   :14.50   Min.   :0.0000  
 1st Qu.:3.080   1st Qu.:2.581   1st Qu.:16.89   1st Qu.:0.0000  
 Median :3.695   Median :3.325   Median :17.71   Median :0.0000  
 Mean   :3.597   Mean   :3.217   Mean   :17.85   Mean   :0.4375  
 3rd Qu.:3.920   3rd Qu.:3.610   3rd Qu.:18.90   3rd Qu.:1.0000  
 Max.   :4.930   Max.   :5.424   Max.   :22.90   Max.   :1.0000  
       am              gear            carb      
 Min.   :0.0000   Min.   :3.000   Min.   :1.000  
 1st Qu.:0.0000   1st Qu.:3.000   1st Qu.:2.000  
 Median :0.0000   Median :4.000   Median :2.000  
 Mean   :0.4062   Mean   :3.688   Mean   :2.812  
 3rd Qu.:1.0000   3rd Qu.:4.000   3rd Qu.:4.000  
 Max.   :1.0000   Max.   :5.000   Max.   :8.000

Plot

The scatterplot below contains data used for the prediction model

library(HistData)
data(mtcars)
mtcars$am[mtcars$am == 0] <- "automatic"
mtcars$am[mtcars$am == 1] <- "manual"
plot(jitter(mtcars$qsec) ~ mtcars$cyl,xlab="number of cylinders",ylab="qsec (second)",main="Scatterplot of mtcars data",pch=19,frame.plot=FALSE,col=ifelse(mtcars$am=="automatic", "pink", "light blue"))
legend(65,80,pch=c(19,19),col=c("pink","light blue"),c("automatic", "manual"),bty="o",cex=.8)