Basic Pitch Stats

Pitcher

Pitch

N

Balls

Strikes

Strike_Percentage

Ball_Percentage

Book

Changeup

108

33

75

69.44%

30.56%

Book

Curveball

31

15

16

51.61%

48.39%

Book

Cutter

2

0

2

100.00%

0.00%

Book

Four-Seam

32

10

22

68.75%

31.25%

Book

Sinker

8

2

6

75.00%

25.00%

Book

Slider

21

6

15

71.43%

28.57%

Brook

Changeup

8

0

8

100.00%

0.00%

Brook

Curveball

4

4

0

0.00%

100.00%

Brook

Sinker

2

0

2

100.00%

0.00%

Brook

Slider

2

0

2

100.00%

0.00%

Book_Danbury <- x %>%
  filter(BatterTeam == "DAN_WES")%>%
  select(AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak)
  
Book_Danbury
##    AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1         Sinker 87.49482 1899.182 153.75 -14.01040         10.74524
## 2       Changeup 84.05818 1872.925 153.75 -12.32977         11.82560
## 3       Changeup 85.73271 1984.300 150.00 -15.33721         10.46658
## 4       Changeup 85.33324 1868.323 150.00 -13.61804          9.96268
## 5      Curveball 75.16378 2062.201  41.25  10.70162          2.71732
## 6       Changeup 84.67629 1843.583 161.25 -11.36894         15.18143
## 7       Changeup 85.64592 1910.711 161.25 -14.18776         17.61505
## 8       Changeup 75.43197 1462.253 168.75  -4.66469         12.65288
## 9       Changeup 84.98058 1914.888 150.00 -15.29737          9.15339
## 10     Curveball 73.08541 2154.701  37.50  14.81895          5.48355
## 11      Changeup 86.71960 1986.637 146.25 -16.74170          9.10126
## 12     Curveball 73.13965 1892.615  30.00  11.34670          8.78394
## 13      Changeup 86.19572 1915.690 153.75 -13.37749         12.47249
## 14     Curveball 73.84134 2043.636  41.25  13.61099          4.36595
## 15      Changeup 85.54413 1897.190 157.50 -11.47985         13.59367
## 16     Four-Seam 91.66673 2443.389 187.50   2.42177         10.47717
## 17     Curveball 76.46757 1991.315  33.75   9.82123          5.43402
## 18      Changeup 85.99874 1961.674 153.75 -12.77016         11.44831
## 19     Four-Seam 86.45990 2017.681 168.75  -7.63847         20.85891
## 20     Curveball 75.98918 1915.071  33.75   6.08591          4.00760
## 21      Changeup 75.38528 1362.931 138.75 -11.96426          3.09366
## 22     Four-Seam 87.33303 1967.093 165.00  -8.13548         17.42654
## 23     Four-Seam 86.10975 1880.625 165.00  -8.86634         17.50725
## 24      Changeup 71.02185 1328.829 138.75 -13.82548          3.68268
## 25     Four-Seam 87.78373 2017.424 161.25 -11.14174         17.65966
## 26      Changeup 74.79569 1493.964 146.25 -12.96339          6.43115
## 27     Four-Seam 85.38906 1977.410 165.00 -10.37004         17.68225
## 28     Curveball 75.68505 1880.823  22.50   7.48307          9.16682
## 29      Changeup 83.93526 2004.269 153.75 -14.30139         12.19221
## 30      Changeup 83.98084 1765.055 172.50  -3.36512         17.13879
## 31      Changeup 75.00242 1254.455 142.50 -11.64257          4.34681
## 32     Curveball 74.35405 1842.269  30.00   8.10004          5.63670
## 33     Curveball 76.50811 1860.316  18.75   4.94807          7.79768
## 34      Changeup 84.51125 1811.084 161.25 -10.57103         15.11265
## 35      Changeup 74.40750 1279.268 153.75  -7.06737          6.49996
## 36     Curveball 74.54656 1823.931  15.00   3.79717          8.86449
## 37      Changeup 82.26858 1952.839 153.75 -12.18446         11.38508
## 38        Sinker 86.78891 2036.410 161.25 -13.92816         20.04292
## 39      Changeup 82.96429 1631.876 165.00  -6.88839         12.61512
## 40     Curveball 77.09021 1867.309  22.50   7.17166          8.52378
## 41        Slider 79.54499 2011.919 180.00   0.79095         14.20044
## 42        Cutter 80.39230 1943.621 187.50   2.24579         12.27867
## 43      Changeup 73.36139 1372.613 165.00  -4.60914          8.64308
## 44      Changeup 87.28326 1757.667 161.25  -8.97993         14.18560
## 45      Changeup 86.18279 1846.833 150.00 -14.87288         10.54406
## 46     Four-Seam 84.88035 2046.746 172.50  -4.19890         16.72489
## 47      Changeup 75.86555 1319.776 146.25  -8.90103          4.49626
## 48      Changeup 74.61028 1301.197 153.75  -7.25288          6.29508
## 49      Changeup 88.13359 1812.784 157.50 -13.46902         15.13194
## 50      Changeup 83.29369 1856.459 153.75 -14.11725         11.78705
## 51      Changeup 85.60071 1919.001 165.00 -10.72658         18.98706
## 52      Changeup 85.47207 1958.861 161.25 -12.97398         18.99017
## 53      Changeup 74.61759 1308.121 150.00 -10.84674          8.13378
## 54     Four-Seam 87.39933 1933.186 161.25 -10.57363         16.07843
## 55      Changeup 72.39754 1264.202 146.25  -9.86741          5.25469
## 56      Changeup 82.68982 1792.377 150.00 -11.15225          8.42689
## 57      Changeup 82.28197 1776.773 146.25 -12.38595          6.53583
## 58      Changeup 85.42922 1695.710 161.25 -10.61166         15.32863
## 59      Changeup 74.25332 1276.518 146.25  -8.28040          4.44551
## 60     Curveball 73.82622 1856.220 187.50   2.81977         12.00402
## 61      Changeup 76.27042 1820.547 180.00   0.38665         13.85942
## 62      Changeup 83.61431 1898.487 153.75 -16.09843         14.30993
## 63      Changeup 81.22982 1771.169 153.75 -13.57379         10.43819
## 64      Changeup 71.75855 1195.408 161.25  -6.99115          9.69780
## 65     Four-Seam 85.58602 1853.493 161.25 -10.65843         14.51670
## 66      Changeup 74.15118 1336.648 146.25 -11.52989          7.05725
## 67        Slider 74.88662 1935.412 191.25   3.64370         11.37123
## 68        Slider 79.97313 2074.456 180.00  -0.85547         15.59190
## 69        Slider 75.24445 1890.565  15.00   4.63748          9.97253
## 70        Slider 77.50099 1911.138 187.50   4.06929         13.78828
## 71      Changeup 83.08746 1830.038 157.50 -11.93749         13.17961
## 72      Changeup 71.27553 1265.949 146.25  -7.46563          4.93205
## 73      Changeup 71.83004 1065.095 153.75 -10.51493         10.19973
Book_Keene <- x %>%
  filter(BatterTeam == "KEE_SWA",  Date =="2023-06-13")%>%
  select(AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak)
Book_Keene
##    AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1       Changeup 73.70391 1229.647 157.50  -4.37469          6.11603
## 2       Changeup 86.66602 1730.449 157.50 -11.85835         14.31442
## 3      Four-Seam 87.40907 1922.003 165.00  -9.26174         16.20064
## 4       Changeup 77.49725 1257.177 142.50  -9.43272          4.28796
## 5       Changeup 82.76628 1842.506 146.25 -15.82489          7.84323
## 6       Changeup 86.22290 1791.595 161.25 -10.94780         16.23304
## 7         Sinker 86.31777 2004.572 153.75 -14.20737         11.38166
## 8      Four-Seam 87.67878 1952.358 168.75  -7.33902         19.28076
## 9       Changeup 73.49640 1088.384 138.75 -12.71422          3.52536
## 10     Four-Seam 87.11521 1883.511 172.50  -5.22516         19.09454
## 11     Curveball 74.60198 2013.647  30.00   8.48367          6.81107
## 12     Curveball 76.84294 2004.195  26.25   4.52260          5.20174
## 13      Changeup 84.51399 1940.547 150.00 -14.81202          9.00823
## 14      Changeup 85.21457 1972.766 153.75 -13.63166         10.28898
## 15     Curveball 74.51779 2093.006  37.50  11.75753          4.99059
## 16      Changeup 85.99872 1870.402 161.25 -11.16945         14.40694
## 17     Four-Seam 87.27759 1912.249 165.00 -10.23745         17.12505
## 18     Four-Seam 86.87770 1923.709 165.00 -10.17768         18.30300
## 19     Four-Seam 87.39674 1928.232 161.25 -10.61430         15.81355
## 20     Four-Seam 87.54284 1992.189 161.25 -10.57170         16.77210
Book_Sanford <- x %>%
  filter(BatterTeam == "SAN_MAI")%>%
  select(AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak)
Book_Sanford
##    AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1       Changeup 74.30278 1357.961 146.25  -8.38067          4.26571
## 2      Curveball 83.38984 1894.626  75.00   6.89678        -11.41075
## 3       Changeup 75.59757 1233.043 135.00  -7.43040          1.59866
## 4       Changeup 83.17297 1781.181 150.00 -14.30391          9.28875
## 5       Changeup 83.61625 1855.907 150.00 -13.16351          9.97004
## 6         Slider 77.42207 1923.911  18.75   3.88748          6.77154
## 7      Curveball 75.56422 2000.892  45.00   9.43642          1.21831
## 8         Sinker 86.55794 2019.081 153.75 -14.63946         12.08375
## 9       Changeup 74.30278 1357.961 146.25  -8.38067          4.26571
## 10     Curveball 83.38984 1894.626  75.00   6.89678        -11.41075
## 11      Changeup 75.59757 1233.043 135.00  -7.43040          1.59866
## 12      Changeup 83.17297 1781.181 150.00 -14.30391          9.28875
## 13      Changeup 83.61625 1855.907 150.00 -13.16351          9.97004
## 14        Slider 77.42207 1923.911  18.75   3.88748          6.77154
## 15     Curveball 75.56422 2000.892  45.00   9.43642          1.21831
## 16        Sinker 86.55794 2019.081 153.75 -14.63946         12.08375
Book_OState <- x %>%
  filter(BatterTeam == "OCE_STA6")%>%
  select(AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak)
Book_OState
##    AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1       Changeup 72.42509 1289.339 127.50 -12.31918         -2.46134
## 2      Curveball 74.60351 2080.906  37.50   9.90894          4.78752
## 3       Changeup 83.29388 1949.656 157.50 -11.52997         12.91178
## 4       Changeup 84.28119 1870.972 165.00  -8.37941         14.83060
## 5       Changeup 83.47605 1833.735 153.75 -12.26572          9.94359
## 6       Changeup 82.92658 1833.927 138.75 -12.69158          3.69276
## 7       Changeup 82.91552 1940.653 146.25 -16.19729          9.04729
## 8       Changeup 84.36931 1888.637 153.75 -14.49316         12.42701
## 9       Changeup 74.20645 1247.119 142.50 -11.77178          5.38300
## 10     Curveball 72.72804 1961.672  37.50  11.86154          4.31173
## 11      Changeup 74.31640 1708.925 146.25 -19.47411          8.81111
Book_Vineyard <- x %>%
  filter(BatterTeam == "MAR_VIN") %>%
  select(Pitcher, AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak) 
Book_Vineyard
##   Pitcher AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1    Book      Changeup 84.44028 1968.560 146.25 -17.72371          9.23473
## 2    Book      Changeup 74.50739 1415.351 146.25 -17.46154          9.52591
## 3    Book        Slider 77.42751 2106.305  26.25   9.75548          9.22922
Book_Keene <- x %>%
  filter(BatterTeam == "KEE_SWA", Date =="2023-07-01")%>%
  select(AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak)
Book_Keene
##    AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1      Four-Seam 86.86640 1912.519 168.75  -6.22685         16.28084
## 2         Slider 77.84017 2064.171  41.25  14.94249          3.54327
## 3       Changeup 75.75619 1428.170 165.00  -4.17740          8.34209
## 4       Changeup 86.60840 1738.736 161.25  -9.05536         11.98867
## 5       Changeup 84.95779 1926.931 146.25 -16.97505          9.54095
## 6      Four-Seam 86.96190 1941.137 165.00  -9.16536         17.60674
## 7       Changeup 84.68857 2023.132 153.75 -13.40930         10.69945
## 8       Changeup 85.97866 2056.602 153.75 -15.05540         13.01095
## 9      Four-Seam 85.64228 1991.548 168.75  -6.38280         15.74505
## 10      Changeup 73.70635 1518.607 153.75  -8.66831          7.36048
## 11        Sinker 86.37791 1900.857 161.25 -14.69627         18.13800
## 12     Four-Seam 85.35150 1929.835 165.00  -9.49461         17.75025
## 13      Changeup 84.56778 1936.660 161.25  -9.36457         13.11875
## 14     Curveball 74.37219 1997.934  41.25  13.15241          2.64016
## 15      Changeup 84.44488 1979.131 153.75 -11.81552         11.17930
Book_UVAL <- x %>%
   filter(BatterTeam == "UPP_VAL", Date == "2023-07-13") %>%
  select(Pitcher, AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak)
Book_UVAL
##    Pitcher AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1     Book      Changeup 84.37935 1831.434 150.00 -11.64583          8.76323
## 2     Book        Sinker 87.01194 2043.167 157.50 -12.79950         14.67178
## 3     Book     Four-Seam 86.95075 1993.128 168.75  -7.63870         18.84525
## 4     Book      Changeup 72.68200 1336.182 150.00 -10.28284          7.88993
## 5     Book        Slider 79.19544 1929.039 187.50   3.11378         13.97115
## 6     Book      Changeup 76.87756 1351.587 138.75 -11.11386          2.65622
## 7     Book      Changeup 85.45779 1954.272 161.25 -11.47473         15.17229
## 8     Book      Changeup 77.77521 1939.928 180.00  -0.08315         17.16847
## 9     Book      Changeup 82.21366 1933.650 157.50 -12.68335         14.83828
## 10    Book     Four-Seam 85.31010 1957.454 168.75  -6.48851         19.55355
## 11    Book      Changeup 83.04262 1827.013 168.75  -7.33433         19.45485
## 12    Book     Four-Seam 85.61745 1883.373 172.50  -6.52705         21.49044
## 13    Book        Sinker 85.86764 1892.000 153.75 -15.86099         15.26170
## 14    Book     Four-Seam 83.02225 2069.984 180.00   0.82173         18.05229
## 15    Book      Changeup 83.55629 1972.586 168.75  -6.40241         17.98584
## 16    Book        Slider 75.24963 2027.943  15.00   7.22847         13.52375
## 17    Book     Four-Seam 85.50070 1944.125 168.75  -6.90453         19.60489
## 18    Book        Slider 76.71539 1982.266 187.50   1.85504          9.74690
## 19    Book        Slider 77.10786 2015.351  15.00   6.49528         12.24075
## 20    Book        Slider 75.16804 1945.599  22.50  10.13363         11.03843
## 21    Book      Changeup 85.50677 1926.104 161.25 -12.06442         16.07776
## 22    Book      Changeup 75.95459 1619.807 142.50 -16.18524          5.72398
## 23    Book      Changeup 81.00251 1858.424 172.50  -4.01028         18.26781
Book_North_Adams<- x %>%
  filter(BatterTeam == "NOR_ADA") %>%
  select(Pitcher, AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak) 
Book_North_Adams
##    Pitcher AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1     Book        Slider 78.54966 2016.447 183.75   0.70697          9.75776
## 2     Book      Changeup 84.60176 1882.125 146.25 -16.10958          7.47000
## 3     Book     Four-Seam 86.62081 1926.522 157.50 -11.97135         13.95820
## 4     Book        Slider 79.93071 2052.206 183.75   1.69839         13.31229
## 5     Book        Slider 77.75138 2059.597  26.25   5.59922          6.07414
## 6     Book     Curveball 74.70156 1800.748 176.25  -0.50752          8.34166
## 7     Book      Changeup 72.78728 1354.126 138.75  -7.87189          2.71252
## 8     Book      Changeup 72.78487 1047.632 138.75 -13.36922          2.74040
## 9     Book        Slider 75.88271 1994.478 187.50   1.74079          8.12217
## 10    Book     Curveball 73.68799 1962.464  15.00   4.55425          9.27910
## 11    Book        Slider 75.82886 1911.035 187.50   1.83654         10.66304
## 12    Book      Changeup 85.13619 1975.770 150.00 -13.85867         10.15997
## 13    Book     Curveball 74.39047 1995.208  22.50   6.89477          9.14855
## 14    Book      Changeup 86.00746 1960.444 153.75 -11.23823          9.66945
## 15    Book     Four-Seam 87.50901 1963.332 165.00  -8.34847         17.34737
## 16    Book     Curveball 74.75351 2014.671  22.50   5.12134          6.40107
## 17    Book      Changeup 82.54432 1848.689 150.00 -13.49654          8.47414
## 18    Book      Changeup 73.71054 1502.000 138.75 -12.31615          3.35473
## 19    Book      Changeup 72.93397 1381.967 138.75 -10.92398          3.13166
## 20    Book      Changeup 71.19522 1062.478 142.50  -7.79874          3.89544
## 21    Book      Changeup 82.18539 1856.092 146.25 -14.43548          7.60445
## 22    Book     Curveball 73.39580 1952.906  30.00   8.11993          6.37481
## 23    Book      Changeup 71.97411 1209.852 142.50  -8.30705          3.64587
## 24    Book      Changeup 71.47204 1274.432 142.50  -8.02626          3.81366
## 25    Book        Slider 75.00319 1766.316 183.75   1.53898         10.45690
## 26    Book      Changeup 73.02067 1209.704 135.00 -11.63607          2.27378
## 27    Book      Changeup 73.71745 1174.637 131.25 -12.34044          0.76815
Book_UVAL2 <- x %>%
   filter(BatterTeam == "UPP_VAL", Date == "2023-07-24") %>%
  select(Pitcher, AutoPitchType, RelSpeed, SpinRate, Tilt, HorzBreak, InducedVertBreak)
Book_UVAL2
##    Pitcher AutoPitchType RelSpeed SpinRate   Tilt HorzBreak InducedVertBreak
## 1     Book        Slider 80.53220 2002.766 183.75   0.90496          7.52855
## 2     Book     Curveball 77.95216 1986.166  37.50   7.74993          3.31390
## 3     Book        Sinker 87.49791 2025.571 150.00 -11.55146          7.42197
## 4     Book     Curveball 79.01944 1933.935  26.25   8.22004          6.69733
## 5     Book     Curveball 78.23775 1898.549  37.50  11.72977          4.60217
## 6     Book        Cutter 79.81941 1992.181 191.25   2.81902          9.73823
## 7     Book      Changeup 84.59429 1883.021 146.25 -13.46855          5.82107
## 8     Book     Four-Seam 88.26578 2064.024 165.00  -8.64741         18.63753
## 9     Book      Changeup 82.12802 1859.382 168.75  -4.89492         12.29985
## 10    Book        Sinker 86.87679 2056.208 150.00 -16.41025         10.92001
## 11    Book     Four-Seam 87.72549 1853.940 165.00  -7.32268         13.86670
## 12    Book     Curveball 78.10454 1891.566  33.75   5.91953          4.20969
## 13    Book     Four-Seam 85.51389 1988.006 168.75  -7.67544         17.25119
## 14    Book      Changeup 83.39582 1817.288 153.75 -11.75040          9.62843
## 15    Book      Changeup 86.35085 1959.546 146.25 -18.05895          9.31402
## 16    Book      Changeup 85.02353 1899.599 150.00 -12.20406          8.33288
## 17    Book      Changeup 83.99078 1882.139 138.75 -16.62627          4.12382
## 18    Book      Changeup 76.13392 1887.842 180.00  -0.75417         15.26556
## 19    Book      Changeup 82.77446 1871.293 150.00 -14.90111         10.04800
## 20    Book     Curveball 74.37950 1770.126  45.00  16.61154          2.47756
## 21    Book     Curveball 76.29920 1931.686  33.75  10.40438          5.15481
## 22    Book      Changeup 84.75169 1933.803 153.75 -12.79729         11.45501
## 23    Book     Curveball 74.60386 1835.686  30.00   2.31319          2.91425
## 24    Book      Changeup 84.27154 1873.743 168.75  -6.44945         17.88906
## 25    Book     Four-Seam 86.60686 1910.665 168.75  -7.91091         17.41525
## 26    Book        Slider 78.94214 2053.198  22.50   8.30252          9.09662
## 27    Book      Changeup 84.95338 1831.128 168.75  -5.27528         13.51646
## 28    Book        Slider 77.84936 1999.125  15.00   4.62248          8.77855
## 29    Book     Curveball 77.83728 2030.445  33.75   8.12969          4.91906
## 30    Book     Four-Seam 90.71789 2173.041  15.00   8.33493         15.10666
## Warning: Removed 11 rows containing missing values (`geom_point()`).

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

x %>%
  ggplot() +
  geom_point(aes(x=HorzBreak, y=InducedVertBreak, color = AutoPitchType, size = .5))+
  xlim(-25, 25) +
  ylim(-25, 25) +
  labs(title = paste('HBreak vs IndVBreak'), caption = "Negative PlateLocSide is Outside to a LHH")