Gardner_Mystic <- x %>%
select(Pitcher, AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, VertBreak)%>%
filter(Pitcher == "Gardner, Patrick")
Gardner_Mystic
## # A tibble: 22 × 7
## Pitcher AutoPitchType RelSpeed SpinRate Tilt HorzBreak VertBreak
## <chr> <chr> <dbl> <dbl> <time> <dbl> <dbl>
## 1 Gardner, Patrick Sinker 86.7 2329. 10:30 -16.7 -20.3
## 2 Gardner, Patrick Changeup 88.1 2183. 09:45 -21.6 -26.7
## 3 Gardner, Patrick Four-Seam 88.9 2346. 10:30 -17.0 -19.3
## 4 Gardner, Patrick Four-Seam 89.1 2338. 10:15 -18.9 -20.6
## 5 Gardner, Patrick Sinker 88.5 2238. 09:30 -22.7 -28.4
## 6 Gardner, Patrick Changeup 86.4 2153. 10:00 -19.4 -24.2
## 7 Gardner, Patrick Changeup 87.5 2220. 09:30 -21.8 -30.2
## 8 Gardner, Patrick Curveball 75.6 2533. 03:45 17.1 -56.2
## 9 Gardner, Patrick Sinker 87.5 2327. 10:30 -17.0 -20.7
## 10 Gardner, Patrick Curveball 74.7 2474. 02:30 17.6 -45.2
## 11 Gardner, Patrick Changeup 87.4 2292. 10:00 -16.9 -26.3
## 12 Gardner, Patrick Curveball 74.8 2455. 03:00 15.9 -49.5
## 13 Gardner, Patrick Curveball 75.4 2453. 03:45 13.5 -55.6
## 14 Gardner, Patrick Sinker 87.4 2262. 10:15 -15.6 -23.7
## 15 Gardner, Patrick Curveball 74.5 2425. 03:30 15.2 -52.9
## 16 Gardner, Patrick Sinker 86.8 2233. 10:00 -16.8 -25.6
## 17 Gardner, Patrick Curveball 75.5 2455. 03:45 11.8 -54.6
## 18 Gardner, Patrick Changeup 87.8 2240. 09:30 -18.1 -31.3
## 19 Gardner, Patrick Changeup 86.7 2227. 09:45 -21.4 -26.8
## 20 Gardner, Patrick Changeup 86.9 2220. 10:00 -17.3 -25.2
## 21 Gardner, Patrick Slider 75.8 2378. 03:00 14.2 -48.3
## 22 Gardner, Patrick Slider 77.0 2432. 03:00 15.1 -47.1