rvestでスクレイピング: 4番打者の起用人数

概要

rvestでスクレイピングをする練習をします。

プロ野球のスタメンに関するデータがありました。

ここからデータを集めて整形し、４番打者の起用人数を調べてみましょう。

準備

library(data.table)
library(dplyr)
library(pipeR)
library(rvest)

rvestでテーブルを取得

rvest::html_tableを利用して、table部分をパースしてデータフレームで取得します。

あとは、urlを変えながら、全チーム分取得する。

取得したものをつかって遊んでみる。

2009年から2015年の全試合のスタメンデータ(10848行)。

dat = fread("startingMemberData.csv")

## データの大きさ
dat %>% dim

## [1] 10848    12

4番打者の起用人数を調べてみます。

巨人,2014,阿部慎之助57試合; 村田修一44試合; セペダ18試合; アンダーソン14試合; 長野久義6試合; 高橋由伸2試合; 大田泰示2試合; ロペス1試合;

みたいな形式で表示します。

dat_v4 = 
  dat %>% 
  select(team, year, V4) %>% 
  group_by(team,year, V4) %>% 
  summarise(n = n()) %>% 
  arrange(desc(n)) %>% 
  mutate(game = paste(as.character(n), "試合", sep="")) %>% 
  mutate(tmp = paste(V4, game, "; ", sep= "")) %>% 
  group_by(team, year) %>% 
  summarise(res = paste(tmp, collapse = "")) 

dat_v4 %>% head

##   team year
## 1   bs 2009
## 2   bs 2010
## 3   bs 2011
## 4   bs 2012
## 5   bs 2013
## 6   bs 2014
##                                                                                                  res
## 1                ローズ81試合; ラロッカ34試合; カブレラ21試合; フェルナンデス5試合; 後藤 光尊3試合; 
## 2                                  カブレラ112試合; Ｔ－岡田15試合; 北川 博敏10試合; ラロッカ7試合; 
## 3   Ｔ－岡田124試合; 後藤 光尊8試合; 李 承燁6試合; 竹原 直隆3試合; カラバイヨ2試合; 北川 博敏1試合; 
## 4                                                                                   李 大浩144試合; 
## 5                                                 李 大浩141試合; Ｔ－岡田2試合; バルディリス1試合; 
## 6 ペーニャ82試合; 糸井 嘉男50試合; Ｔ－岡田6試合; 竹原 直隆3試合; ベタンコート2試合; ヘルマン1試合;

## チーム名を漢字にしたい
team_char = c("bs", "c", "d", "e", "f", "g", "h", "l", "m", "s", "t", "yb")
team_char %>% length

## [1] 12

team_name = c("大阪", "広島", "中日", "楽天", "日ハム", "巨人", "福岡", "西武", "千葉", "ヤクルト", "阪神", "横浜")
team_df = data.frame(team = team_char, name = team_name)

## マージすればOK
dat_v4 %>% 
  merge(team_df, by = "team") %>% 
  select(name, year, res) %>% 
  write.csv("dat_v4.csv", row.names=FALSE, quote=FALSE)

結果を見てみます。

library(xtable)
fread("dat_v4.csv") %>% 
  xtable %>% 
  print(type="html")

	name	year	res
1	大阪	2009	ローズ81試合; ラロッカ34試合; カブレラ21試合; フェルナンデス5試合; 後藤光尊3試合;
2	大阪	2010	カブレラ112試合; Ｔ－岡田15試合; 北川博敏10試合; ラロッカ7試合;
3	大阪	2011	Ｔ－岡田124試合; 後藤光尊8試合; 李承燁6試合; 竹原直隆3試合; カラバイヨ2試合; 北川博敏1試合;
4	大阪	2012	李大浩144試合;
5	大阪	2013	李大浩141試合; Ｔ－岡田2試合; バルディリス1試合;
6	大阪	2014	ペーニャ82試合; 糸井嘉男50試合; Ｔ－岡田6試合; 竹原直隆3試合; ベタンコート2試合; ヘルマン1試合;
7	大阪	2015	カラバイヨ19試合; 中島裕之13試合; Ｔ－岡田9試合; 竹原直隆1試合;
8	広島	2009	栗原健太138試合; シーボル6試合;
9	広島	2010	栗原健太104試合; 嶋重宣23試合; ヒューバー16試合; 廣瀬純1試合;
10	広島	2011	栗原健太104試合; トレーシー39試合; 岩本貴裕1試合;
11	広島	2012	エルドレッド51試合; ニック37試合; 岩本貴裕32試合; 栗原健太20試合; 松山竜平4試合;
12	広島	2013	エルドレッド62試合; キラ41試合; 廣瀬純33試合; ニック3試合; 松山竜平3試合; 栗原健太1試合; 岩本貴裕1試合;
13	広島	2014	エルドレッド110試合; ロサリオ21試合; キラ7試合; 丸佳浩3試合; 松山竜平2試合; 岩本貴裕1試合;
14	広島	2015	新井貴浩19試合; ロサリオ9試合; グスマン8試合; 松山竜平3試合; シアーホルツ1試合;
15	中日	2009	ブランコ144試合;
16	中日	2010	ブランコ74試合; 和田一浩48試合; 森野将彦22試合;
17	中日	2011	和田一浩73試合; ブランコ42試合; 森野将彦27試合; 平田良介1試合; 佐伯貴弘1試合;
18	中日	2012	ブランコ61試合; 和田一浩34試合; 森野将彦25試合; 山﨑武司24試合;
19	中日	2013	和田一浩82試合; ルナ57試合; 平田良介4試合; 山﨑武司1試合;
20	中日	2014	平田良介68試合; ルナ42試合; 森野将彦23試合; 和田一浩11試合;
21	中日	2015	ルナ34試合; 福田永将8試合; ナニータ1試合;
22	楽天	2009	山﨑武司102試合; セギノール19試合; 草野大輔17試合; 中村紀洋6試合;
23	楽天	2010	山﨑武司90試合; 中村紀洋40試合; ルイーズ11試合; 鉄平1試合;
24	楽天	2011	山﨑武司99試合; ガルシア27試合; ルイーズ16試合; 草野大輔2試合;
25	楽天	2012	フェルナンデス63試合; ガルシア54試合; 枡田慎太郎19試合; テレーロ3試合; 岩村明憲2試合; ハーパー1試合; 河田寿司1試合; 草野大輔1試合;
26	楽天	2013	ジョーンズ143試合; マギー1試合;
27	楽天	2014	ジョーンズ132試合; ラッツ5試合; 枡田慎太郎3試合; 西田哲朗2試合; ボウカー1試合; 松井稼頭央1試合;
28	楽天	2015	ペーニャ27試合; 松井稼頭央10試合; サンチェス2試合;
29	日ハム	2009	高橋信二97試合; スレッジ24試合; 小谷野栄一21試合; ボッツ2試合;
30	日ハム	2010	小谷野栄一101試合; 高橋信二29試合; 二岡智宏13試合;
31	日ハム	2011	中田翔74試合; 小谷野栄一70試合;
32	日ハム	2012	中田翔144試合;
33	日ハム	2013	中田翔106試合; アブレイユ36試合; 陽岱鋼2試合;
34	日ハム	2014	中田翔142試合; 陽岱鋼2試合;
35	日ハム	2015	中田翔40試合;
36	巨人	2009	ラミレス144試合;
37	巨人	2010	ラミレス144試合;
38	巨人	2011	ラミレス98試合; 阿部慎之助22試合; 長野久義16試合; 高橋由伸8試合;
39	巨人	2012	阿部慎之助80試合; 村田修一64試合;
40	巨人	2013	阿部慎之助99試合; 村田修一37試合; 高橋由伸5試合; ロペス2試合; ボウカー1試合;
41	巨人	2014	阿部慎之助57試合; 村田修一44試合; セペダ18試合; アンダーソン14試合; 長野久義6試合; 高橋由伸2試合; 大田泰示2試合; ロペス1試合;
42	巨人	2015	坂本勇人18試合; 阿部慎之助13試合; 大田泰示10試合; 中井大介1試合;
43	福岡	2009	小久保裕紀95試合; 松中信彦49試合;
44	福岡	2010	小久保裕紀107試合; 多村仁志27試合; 松中信彦10試合;
45	福岡	2011	小久保裕紀51試合; カブレラ46試合; 松中信彦29試合; 松田宣浩18試合;
46	福岡	2012	ペーニャ87試合; 松中信彦21試合; 小久保裕紀16試合; カブレラ7試合; 多村仁志6試合; 松田宣浩5試合; 内川聖一2試合;
47	福岡	2013	松田宣浩80試合; ラヘア28試合; 内川聖一21試合; 柳田悠岐10試合; ペーニャ4試合;
48	福岡	2014	李大浩144試合;
49	福岡	2015	内川聖一39試合;
50	西武	2009	中村剛也126試合; 後藤武敏10試合; 中島裕之7試合; G.G.佐藤1試合;
51	西武	2010	中村剛也61試合; フェルナンデス36試合; 中島裕之23試合; ブラウン13試合; 栗山巧8試合; 大島裕行2試合;
52	西武	2011	中村剛也143試合; フェルナンデス1試合;
53	西武	2012	中村剛也119試合; 中島裕之25試合;
54	西武	2013	浅村栄斗96試合; オーティズ27試合; スピリー19試合; 上本達之1試合; 大﨑雄太朗1試合;
55	西武	2014	中村剛也91試合; 浅村栄斗38試合; メヒア15試合;
56	西武	2015	中村剛也39試合; メヒア1試合;
57	千葉	2009	井口資仁73試合; 大松尚逸67試合; サブロー2試合; 橋本将2試合;
58	千葉	2010	金泰均131試合; 福浦和也6試合; 大松尚逸4試合; サブロー3試合;
59	千葉	2011	カスティーヨ85試合; 金泰均18試合; 福浦和也18試合; 大松尚逸15試合; サブロー5試合; 里崎智也2試合; 清田育宏1試合;
60	千葉	2012	サブロー77試合; ホワイトセル59試合; 井口資仁6試合; 清田育宏2試合;
61	千葉	2013	今江敏晃96試合; ホワイトセル18試合; サブロー8試合; 井口資仁7試合; ブラゼル7試合; 福浦和也5試合; 鈴木大地1試合; 清田育宏1試合;
62	千葉	2014	デスパイネ39試合; 今江敏晃38試合; サブロー25試合; ブラゼル11試合; 井口資仁9試合; 大松尚逸8試合; クルーズ5試合; 井上晴哉3試合; 福浦和也3試合; 角中勝也2試合; ハフマン1試合;
63	千葉	2015	今江敏晃15試合; デスパイネ15試合; クルーズ8試合;
64	ヤクルト	2009	デントナ93試合; ガイエル17試合; 畠山和洋17試合; 青木宣親16試合; 武内晋一1試合;
65	ヤクルト	2010	デントナ64試合; ホワイトセル59試合; ガイエル16試合; 青木宣親2試合; 飯原誉士2試合; 畠山和洋1試合;
66	ヤクルト	2011	畠山和洋137試合; ホワイトセル6試合; バレンティン1試合;
67	ヤクルト	2012	畠山和洋89試合; バレンティン40試合; ミレッジ15試合;
68	ヤクルト	2013	バレンティン121試合; 畠山和洋19試合; 松元ユウイチ2試合; ミレッジ1試合; 飯原誉士1試合;
69	ヤクルト	2014	バレンティン98試合; 畠山和洋18試合; 雄平14試合; 川端慎吾8試合; ミレッジ3試合; 飯原誉士3試合;
70	ヤクルト	2015	雄平27試合; 畠山和洋13試合; バレンティン1試合;
71	阪神	2009	金本知憲144試合;
72	阪神	2010	新井貴浩118試合; 金本知憲26試合;
73	阪神	2011	新井貴浩135試合; マートン7試合; 関本賢太郎2試合;
74	阪神	2012	新井貴浩64試合; 新井良太47試合; 金本知憲31試合; マートン2試合;
75	阪神	2013	マートン111試合; 鳥谷敬26試合; 新井良太7試合;
76	阪神	2014	ゴメス143試合; 新井貴浩1試合;
77	阪神	2015	ゴメス40試合;
78	横浜	2009	村田修一92試合; ジョンソン35試合; 吉村裕基14試合; 内川聖一2試合; 佐伯貴弘1試合;
79	横浜	2010	村田修一144試合;
80	横浜	2011	村田修一144試合;
81	横浜	2012	ラミレス129試合; 中村紀洋11試合; ルイーズ2試合; 後藤武敏1試合; 筒香嘉智1試合;
82	横浜	2013	ブランコ131試合; 中村紀洋10試合; 後藤武敏3試合;
83	横浜	2014	ブランコ71試合; 筒香嘉智39試合; 中村紀洋13試合; 後藤武敏9試合; バルディリス9試合; グリエル2試合; 多村仁志1試合;
84	横浜	2015	筒香嘉智42試合;