First, I grabbed the data from the Fangraphs database into a variable entitled strikedata.

head(strikedata)
dbDisconnect(thtdb)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQKICBodG1sX2RvY3VtZW50OiBkZWZhdWx0Ci0tLQoKCmBgYHtyIGRiLmZhbmdyYXBocyBjb25uZWN0aW9uLCBpbmNsdWRlPUZBTFNFfQpsaWJyYXJ5KFJNeVNRTCkKYGBgCgpGaXJzdCwgSSBncmFiYmVkIHRoZSBkYXRhIGZyb20gdGhlIEZhbmdyYXBocyBkYXRhYmFzZSBpbnRvIGEgdmFyaWFibGUgZW50aXRsZWQgc3RyaWtlZGF0YS4KCmBgYHtzcWwgY29ubmVjdGlvbiA9ICB0aHRkYiwgZWNobz1UUlVFLCBtYXgucHJpbnQ9MTAsIG91dHB1dC52YXI9InN0cmlrZWRhdGEifQpzZWxlY3QgcGl0Y2hfdHlwZSwgZ2FtZV9kYXRlLCBiYXR0ZXIsIHBpdGNoZXIsIHVtcGlyZSwgc3RhbmQsIHBfdGhyb3dzLCBgdHlwZWAKLHB4LCBweiwgZ2FtZV95ZWFyLCBiYWxscyxzdHJpa2VzCmZyb20gZ2Rfc2F2YW50IGxpbWl0IDEwMDsKYGBgCgpgYGB7cn0KaGVhZChzdHJpa2VkYXRhKQpgYGAKCmBgYHtyfQpkYkRpc2Nvbm5lY3QodGh0ZGIpCmBgYA==