6/30_Ump

Single_Game_Data <- data %>%
  filter(Date == "2023-06-30")

Missed_Strikes <- data %>%
  filter(Date == "2023-06-30")%>%
  filter(PlateLocSide >= -.85  & PlateLocSide <= .85) %>%
  filter(PlateLocHeight >= 1.6  & PlateLocHeight <= 3.5) %>%
  filter(PitchCall == 'BallCalled')

Missed_Out_In <- data %>%
  filter(Date == "2023-06-30")%>%
  filter(PlateLocSide <= -.85  | PlateLocSide >= .85) %>%
  filter(PitchCall == 'StrikeCalled')

Missed_Upp_Down<- data %>%
  filter(Date == "2023-06-30")%>%
  filter(PlateLocHeight <= 1.6  | PlateLocHeight >= 3.5) %>%
  filter(PitchCall == 'StrikeCalled')

## Warning: Removed 11 rows containing missing values (`geom_point()`).

## [1] 90.8805