Foley_vs_Danbury

Foley_Danbury <- x %>%
  select(Pitcher, AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, VertBreak)%>%
  filter(Pitcher == "Foley, Brian")
Foley_Danbury

## # A tibble: 15 × 7
##    Pitcher      AutoPitchType RelSpeed SpinRate Tilt   HorzBreak VertBreak
##    <chr>        <chr>            <dbl>    <dbl> <time>     <dbl>     <dbl>
##  1 Foley, Brian Four-Seam         91.2    2406. 01:00       4.87     -22.1
##  2 Foley, Brian Slider            78.9    2796. 09:45     -15.7      -36.4
##  3 Foley, Brian Four-Seam         91.3    2436. 12:15       2.33     -16.6
##  4 Foley, Brian Four-Seam         91.5    2596. 12:30       4.06     -17.2
##  5 Foley, Brian Four-Seam         91.6    2574. 12:30       4.27     -13.9
##  6 Foley, Brian Four-Seam         89.7    2589. 12:30       2.95     -17.4
##  7 Foley, Brian Four-Seam         90.8    2663. 12:30       2.73     -17.9
##  8 Foley, Brian Four-Seam         90.3    2557. 12:30       3.32     -16.2
##  9 Foley, Brian Four-Seam         91.1    2483. 12:15       2.64     -15.3
## 10 Foley, Brian Four-Seam         91.5    2545. 12:15       2.55     -16.7
## 11 Foley, Brian Slider            80.9    2842. 09:45     -16.5      -32.4
## 12 Foley, Brian Slider            80.1    2812. 09:30     -18.8      -35.9
## 13 Foley, Brian Four-Seam         91.0    2559. 12:15       1.72     -14.7
## 14 Foley, Brian Slider            79.8    2640. 09:45     -16.5      -33.5
## 15 Foley, Brian Slider            80.5    2824. 09:15     -20.6      -36.3