Ihavebeenthinkingabouthowtorepresenttheideaofbattingaverageasapercentofaplayer'soffense.Alldatainthisdiscussionisfrom2019-2021.Ithoughtovalsmightdothetrick.IfImaketheverticalsemiaxisofanovalthelengthofahitter'ssluggingpercentage,andthehorizontalsemiaxisthelegthofahitter'sonbasepercentage,youmightgetanovalthatlookslikethis:
In[]:=
Graphics[{Circle[{0,5},{0.43319,0.64575}]}]
Out[]=
Battingaveragewillbeacirclewiththebattingaverageastheradius.
In[]:=
Graphics[{Circle[{0,5},0.30065]}]
Out[]=
Youcanoverlayoneontopoftheotherandaddaname:
In[]:=
Graphics[{Circle[{0,5},{0.43319,0.64575}],Circle[{0,5},0.30065],Text["Mike Trout",{1,5}]}]
Out[]=
TroutisatoneextremeendoftherelationshipbetweenBA,OBA,andSlugging.Here'ssomeoneinthemiddle:
In[]:=
Graphics[{Circle[{0,196},{0.33140,0.46402}],Circle[{0,196},0.26638],Text["Francisco Lindor",{1,196}]}]
Out[]=
Attheotherextremeisanotherverygoodhitter:
In[]:=
Graphics[{Circle[{0,354},{0.35379,0.50882}],Circle[{0,354},0.32746],Text["Tim Anderson",{1,354}]}]
Out[]=
Ifyoulookatthehorizontalaxis,itgivesyouagoodwaytoidentifyplayerswhoarelikelytobegoodatextendinghitstreaks.Hereareallthreetogether:
In[]:=
Graphics[{Circle[{0,5},{0.43319,0.64575}],Circle[{0,5},0.30065],Text["Mike Trout",{1,5}],Circle[{0,3},{0.33140,0.46402}],Circle[{0,3},0.26638],Text["Francisco Lindor",{1,3}],Circle[{0,1},{0.35379,0.50882}],Circle[{0,1},0.32746],Text["Tim Anderson",{1,1}]}]
Out[]=