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")