Basketball visualizations. Shiny app test. Some of these graphs don't make much sense since I'm just testing. Data collected from databaseBasketball.com

server.R

library(shiny)
library(ggplot2)

team_season <- read.csv("zteam_season.csv")
#function for limiting data

shinyServer(function(input, output) {
  #Data for plots
  dat1<-reactive(function(){
    #subset team by checkbox
    if((input$DET)&(input$SAS)&(input$MIA)){
      data<-subset(team_season,(team=="DET")|(team=="SAS")|(team=="MIA"))
    }else if((input$DET)&(input$SAS)&!(input$MIA)){
      data<-subset(team_season,(team=="DET")|(team=="SAS"))
    }else if((input$DET)&!(input$SAS)&(input$MIA)){
      data<-subset(team_season,(team=="DET")|(team=="MIA"))
    }else if(!(input$DET)&(input$SAS)&(input$MIA)){
      data<-subset(team_season,(team=="SAS")|(team=="MIA"))
    }else if((input$DET)&!(input$SAS)&!(input$MIA)){
      data<-subset(team_season,(team=="DET"))
    }else if(!(input$DET)&!(input$SAS)&(input$MIA)){
      data<-subset(team_season,(team=="MIA"))
    }else if(!(input$DET)&(input$SAS)&!(input$MIA)){
      data<-subset(team_season,(team=="SAS"))
    }else{
    }
    
    #subset by year
    data<-subset(data,(year>=input$min_year)&(year<=input$max_year))
  })
  ########################################
  #First tab plots for wins and losses
  ####################################################
  
  output$plot_won <- reactivePlot(function() {
    data<-dat1()
    Team<-factor(data$team)
    p<-qplot(year, won, data = data, geom = c("point"), color = Team) + ggtitle("Number of games won")#+theme_bw()
    if(input$loess){
      p<-p+geom_smooth(aes(fill=Team),alpha = 0.2, method = "loess")
    }
    print(p)
  })
  # plot for lost games
  output$plot_lost <- reactivePlot(function() {
    data<-dat1()
    Team<-factor(data$team)
    p<-qplot(year, lost, data = data, geom = c("point"), color = Team) + ggtitle("Games lost")#+theme_bw()
    if(input$loess){
      p<-p+geom_smooth(aes(fill=Team),alpha = 0.2, method = "loess")
    }
    print(p)
  })
 #############################################
  #POINTS Graph for o_pts and d_pts
 ################################################ 
  output$plot_opts <- reactivePlot(function() {
    data<-dat1()
    Team<-factor(data$team)
    p<-qplot(year, o_pts, data = data, geom = c("point"), color = Team) + ggtitle("O Points")#+theme_bw()
    if(input$loess){
      p<-p+geom_smooth(aes(fill=Team),alpha = 0.2, method = "loess")
    }
    print(p)
  })
  ####
  output$plot_dpts <- reactivePlot(function() {
    data<-dat1()
    Team<-factor(data$team)
    p<-qplot(year, d_pts, data = data, geom = c("point"), color = Team) + ggtitle("D points")#+theme_bw()
    if(input$loess){
      p<-p+geom_smooth(aes(fill=Team),alpha = 0.2, method = "loess")
    }
    print(p)
  })
  #######################
  #Density plots
  output$dense_won<-reactivePlot(function() {
    data<-dat1()
    p<-ggplot(data, aes(won,fill=team))+geom_density(alpha=.2)#+theme_bw()
    print(p)
  })
  output$dense_lost<-reactivePlot(function() {
    data<-dat1()
    p<-ggplot(data, aes(lost,fill=team))+geom_density(alpha=.2)#+theme_bw()
    print(p)
  })
  output$dense_opts<-reactivePlot(function() {
    data<-dat1()
    p<-ggplot(data, aes(o_pts,fill=team))+geom_density(alpha=.2)#+theme_bw()
    print(p)
  })
  output$dense_dpts<-reactivePlot(function() {
    data<-dat1()
    p<-ggplot(data, aes(d_pts,fill=team))+geom_density(alpha=.2)#+theme_bw()
    print(p)
  })
  ####Summary stats
  output$summary <- reactivePrint(function() {
    dataset <- dat1()
    summary(dataset)
  })
  ##########3d plot for points over time and games won
  output$threed_opts<-reactivePlot(function() {
    data<-dat1()
    p<-ggplot(data,aes(year,won,fill=o_pts))+facet_wrap(~team, scales = "free_y")+geom_tile()
    print(p)
  })
  
})

ui.R

library(shiny)
library(ggplot2)
# Define UI for application that plots random distributions 
shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel("Basketball Visualization"),
  #slider to choose years
  
  #sidebar with checkbox for team names
  sidebarPanel(
    wellPanel(
    checkboxInput(inputId = "DET",
                  label = strong("Detroit Pistons"),
                  value = T),
    checkboxInput(inputId = "SAS",
                  label = strong("San Antonio Spurs"),
                  value = T),
    checkboxInput(inputId = "MIA",
                  label = strong("Miami Heat"),
                  value = T),
    checkboxInput(inputId = "loess",
                  label = strong("Show Trend Lines"),
                  value = F)),
    wellPanel(
    sliderInput("min_year", "Min year:",min=1947,max=2008,value=1957),
    sliderInput("max_year","Max Year",min=1947,max=2009,value=2009)
    
  )),
  
  # Show a plot of the generated distribution
  mainPanel(
    tabsetPanel(
      tabPanel("Games Won and Lost",plotOutput("plot_won"),plotOutput("dense_won"),plotOutput("plot_lost"),plotOutput("dense_lost")),
      tabPanel("Points",plotOutput("plot_opts"),plotOutput("dense_opts"),plotOutput("plot_dpts"),plotOutput("dense_dpts")),
      tabPanel("Summary Stats",verbatimTextOutput("summary")),
      tabPanel("3d plot",plotOutput("threed_opts"))
    )
  )
))

zteam_season.csv