baseball savantのRunValueデータをcsvファイルに保存する

rvestパッケージを用いてbaseball savantのRun Valueデータをスクレイピングして、csvファイルに保存する。

〇 打者編

Shohei OhtaniのRun Value

Shohei Ohtani Stats: Statcast, Visuals & Advanced Metrics

library(rvest)
library(tidyverse)

url <- "https://baseballsavant.mlb.com/savant-player/shohei-ohtani-660271?stats=statcast-r-hitting-mlb"
html <- read_html(url)
tbl <- html_element(html, css = "*[id=runValues]")
data <- html_table(tbl)
datacol <- c("year", "pitch_name", "Team", "RV_100", "RV", "pitches", "rate",
             "PA", "BA", "SLG", "wOBA", "whiff", "K", "PutAway",
             "xBA", "xSLG", "xwOBA", "HardHit")
colnames(data) <- datacol

write_csv(data, "Shohei Ohtani RV_batter.csv")

完成

Team列がNAになっているが、もともと画像なのでスルー。

〇 投手編

Shohei Ohtani Statcast, Visuals & Advanced Metrics | MLB.com

url <- "https://baseballsavant.mlb.com/savant-player/shohei-ohtani-660271?stats=statcast-r-pitching-mlb"
html <- read_html(url)
tbl <- html_element(html, css = "*[id=runValues]")
data <- html_table(tbl)
datacol <- c("year", "pitch_name", "Team", "RV_100", "RV", "pitches", "rate",
             "PA", "BA", "SLG", "wOBA", "whiff", "K", "PutAway",
             "xBA", "xSLG", "xwOBA", "HardHit")
colnames(data) <- datacol
write_csv(data, "Shohei Ohtani RV_pitcher.csv)

文字列になっているとこは、as.numericで変換すればよい

選手名とIDがあればmap関数を用いてまとめて取得可能。