ファメの助言と助力を得て、ダーッと走り書きでやってみたんだけど…
まぁちょっと解説するか。まず、Baseball-Reference.comから適当にCSVで落として、エクセルで五年間の累計データを出して書きつらねる。適宜、追加した第5行は無視していく。グラフを重ねるうえで、age~yearとの別にすることが求められた。一歳差かな…それでもマエケンの強さがにじみ出てますね。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
darvish.5yrs <- read.csv("darvish_5yrs.csv") darvish.5yrs <- head(darvish.5yrs, n=5) plot(darvish.5yrs$Age,(darvish.5yrs$W.L.)*100) summary((darvish.5yrs$W.L.)*100) maeken.5yrs <- read.csv("maeken_5yrs.csv") maeken.5yrs <- head(maeken.5yrs, n=5) plot(maeken.5yrs$Age,(maeken.5yrs$W.L.)*100) summary((maeken.5yrs$W.L.)*100) plot(darvish.5yrs$Year,(darvish.5yrs$W.L.)*100,ylim=c(0,100),xlab="",ylab="") par(new=T) plot(maeken.5yrs$Year,(maeken.5yrs$W.L.)*100,ylim=c(0,100),xlab="Year",ylab="Win.Pct",xaxt="n",yaxt="n",pch=3) darvish.5yrs_SO.BB <- darvish.5yrs$SO/darvish.5yrs$BB maeken.5yrs_SO.BB <- maeken.5yrs$SO/maeken.5yrs$BB par(new=F) plot(darvish.5yrs$Year,darvish.5yrs_SO.BB,ylim=c(0,10),xlab="",ylab="") par(new=T) plot(maeken.5yrs$Year,maeken.5yrs_SO.BB,ylim=c(0,10),xlab="Year",ylab="SO/BB",xaxt="n",yaxt="n",pch=3) |
この結果プロットされた図を見てほしい…（〇がダル、+がマエケン）
あれ？勝率がマエケンのほうがいい？そんなことありえんのか？リリーフとして登板してた分も加味しないと総合的な戦力判断にはならんかもしれんけど、勝率でみるとマエケンのほうがずっといいと思うんですが…。K/BBでも2016シーズン/2019シーズンだけ劣っていて2020シーズンはダルよりかなりいい感じですね。この値がでかいといいっていうらしいですけど…防御率の比較では若干ダルに軍配が上がるかな…考えられるのは抑えるところで抑えているのがダルってことですかね。
ほかにも工夫次第でいろいろできそうです。次回から打線編に入ろう…
※ちょっと作図ミスったかもしれないと思うんですが…あってますよね？
