MATH 2270 Final Project

Student Details

• Jordan Levin (s3611593)

Story and Data Sources

Data Visualizations

Over18<-read.csv("~/Desktop/MATH 2270/Over 18 Activity 2.csv")
Under18<-read.csv("~/Desktop/MATH 2270/Under 18 Activity.csv")
Appropriation<-read.csv("~/Desktop/MATH 2270/Appropriation 2.csv")

p1 <- plot_ly(data = Over18, x = ~Time, y = ~Proportion, type = "bar",
              hoverinfo="text",
              text=paste("<b>Percent</b>=",Over18$Proportion,
                         "<br><b>Hours</b>=",Over18$Time))%>% 
  
  layout(title ="Average Daily Amount of Physical Activity in Last Week - Age 18 and Older (2011-2012)",
         yaxis = list(zeroline = FALSE, title = "Percentage"),
         xaxis = list(zeroline = FALSE, title = "Hours"))

p1

## Warning: package 'bindrcpp' was built under R version 3.3.2

p2<-plot_ly(data = Under18, x=~Time, y=~Proportion, type = "bar",
            hoverinfo="text",
            text=paste("<b>Percent</b>=",Under18$Proportion,
                       "<br><b>Hours</b>=",Under18$Time))%>%
  
  layout(title ="Average Daily Amount of Physical Activity in Last Week - Age 5 to 17 (2011-2012)",
         yaxis = list(zeroline = FALSE, title = "Percentage"),
         xaxis = list(zeroline = FALSE, title = "Hours"))

p2

p3 <- plot_ly(data = Appropriation, x = ~Year, y = ~Amount, type = "bar", color = ~Appropriation_Type,
              colors = c("tan1","steelblue4"),
              hoverinfo="text",
              text=paste("<b>Amount</b>=",Appropriation$Amount,
                         "<br><b>Year</b>=",Appropriation$Year,
                         "<br><b>Funding Outcome</b>=",Appropriation$Appropriation_Type)) %>% 
  
  layout(title ="Australian Sports Commission Funding Amount by Outcome (2001-2002 to 2012-2013)",
         yaxis = list(zeroline = FALSE, title = "Amount (In Millions of Dollars)"),
         xaxis = list(zeroline = FALSE, title = "Year"))

p3