pitch4.R

library(pitchRx)
library(tidyverse)

data <- scrape(start = "2011-04-04", end = "2011-06-01")

pitches <- data[["pitch"]]
ab <- data[["atbat"]]

newDat <- merge(pitches, ab, by = c("num", "gameday_link"))
newDat <- newDat[1:95]
newDat <- newDat %>%
  select(num, des, sz_top, sz_bot, px, pz,
         pitch_type, zone, count, pitcher, batter,
         b_height)

isoCounts <- noSwing %>%
  filter(count %in% c("0-2", "1-2", "2-2", "3-0", "3-1", "3-2"))

isoCounts <- isoCounts %>%
  select(des, sz_top, sz_bot, px, pz, count) %>%
  mutate(PZ = (pz - sz_bot) / (sz_top - sz_bot))