INPUTしたらOUTPUT!

忘れっぽいんでメモっとく

黒田博樹選手のフロントドア/バックドアをRで可視化したい

R

黒田選手のフロントドア/バックドアが凄いらしい。
野球にはさほど興味はないのだけれど、どれくらい凄いのか可視化したくなったので試してみた。


参考サイト


とりあえず1日だけで試してみた結果
↓

library(pitchRx)
dat <- scrape(start="2014-04-18", end="2014-04-18")
atbats <- subset(dat$atbat, pitcher_name == "Hiroki Kuroda")
Kuroda <- plyr::join(atbats, dat$pitch, by=c("num", "url"), type="inner")
animateFX(Kuroda, avg.by="pitch_types", layer=list(coord_equal(), theme_bw(), facet_grid(.~stand)))

f:id:tak95:20150331194224g:plain

  • pitch_typesの平均にしてしまうと良くわからないな。。。
  • そもそもtwo-seamってこの中のどれになるんだっけ？


rh <- subset(Kuroda, stand=="R")
interactiveFX(rh)

f:id:tak95:20150331195639p:plain

  • 1投ごとに見たら分かるかと思ったけど分からなかった
  • WebGL、ブログに貼れたら面白いんだけどなー
  • 1日の平均で見てもフロントドア/バックドアは分からない
    • 当たり前か
  • 比較対照群が必要
    • 他の日本人メジャーリーガーと比べてみる
  • 餅は餅屋に任せるべき