Overview

This project will begin on Monday June 7th, and conclude with a 10-15 minute presentation one week later on Thursday, June 17th during lab from 2:30 to 4 PM EDT. The goal of this project is to practice understanding the structure of a dataset, and to practice generating and evaluating hypotheses using fundamental EDA and data visualization techniques.

Deliverables

Your team is expected to produce R Markdown slides (an example template will be provided shortly) to accompany your 10-15 minute presentation with the following information:

Timeline

There will be two submission deadlines:

Friday, June 11th @ 4:00pm EST - Each student will push their individual code for the project thus far to their GitHub accounts for review. We will then provide feedback on the code submitted.

Thursday, June 17 @ 2:00pm EST - Slides and full code must be completed and ready for presentation. Send your slides to Ron’s email (ryurko@andrew.cmu.edu). All code, visualizations, and presentations must be made in R. Take advantage of examples from lecture and the presentation template, but also feel free to explore material online that may be relevant!

Data

Your team is assigned the MLB batted balls data. This dataset contains all batted balls from the current 2021 MLB season, through June 5th, courtesy of baseballsavant.com and accessed using the baseballr package. The code chunk at the end shows how this dataset was constructed in R.

Each row of the dataset corresponds to a batted ball and has the following columns:

Note that a full glossary of the features available from MLB’s Statcast data can be found here.

Code to build dataset

library(baseballr)
library(tidyverse)

# Scrape all data for this season:
mlb_batted_balls_2021 <- 
  scrape_statcast_savant_batter_all(start_date = "2021-01-01",
                                    end_date = "2021-06-04") %>%
  dplyr::filter(type == "X")

mlb_batted_balls_2021 <- mlb_batted_balls_2021 %>%
  # Only select columns regarding the batted ball with discrete pitch type
  # information (except for the speed) for now: 
  dplyr::select(# Batter info:
                player_name, batter, stand, 
                # Batted ball info:
                events, hc_x, hc_y, hit_distance_sc, launch_speed, launch_angle,
                hit_location, bb_type, barrel,
                # Pitch info:
                pitch_type, release_speed, effective_speed, 
                # Shift info:
                if_fielding_alignment, of_fielding_alignment,
                # Game level context:
                game_date, balls, strikes, outs_when_up, on_1b, on_2b, on_3b, 
                inning, inning_topbot, home_score, away_score, post_home_score,
                post_away_score,
                # Description of play:
                des)