［R］イチローの大リーグでの年間打撃成績を調べる

Lahmanデータベースを使うと簡単に調べることができる。

> library(tidyverse)
> library(Lahman)
> plid <- (People %>% filter(nameFirst == "Ichiro"))$playerID
> Batting %>% group_by(playerID) %>% filter(playerID == plid) %>%
+ select(playerID, yearID, teamID, lgID, G, AB, H) %>%
+ as.data.frame()
    playerID yearID teamID lgID   G  AB   H
1  suzukic01   2001    SEA   AL 157 692 242
2  suzukic01   2002    SEA   AL 157 647 208
3  suzukic01   2003    SEA   AL 159 679 212
4  suzukic01   2004    SEA   AL 161 704 262
5  suzukic01   2005    SEA   AL 162 679 206
6  suzukic01   2006    SEA   AL 161 695 224
7  suzukic01   2007    SEA   AL 161 678 238
8  suzukic01   2008    SEA   AL 162 686 213
9  suzukic01   2009    SEA   AL 146 639 225
10 suzukic01   2010    SEA   AL 162 680 214
11 suzukic01   2011    SEA   AL 161 677 184
12 suzukic01   2012    SEA   AL  95 402 105
13 suzukic01   2012    NYA   AL  67 227  73
14 suzukic01   2013    NYA   AL 150 520 136
15 suzukic01   2014    NYA   AL 143 359 102
16 suzukic01   2015    MIA   NL 153 398  91
17 suzukic01   2016    MIA   NL 143 327  95
18 suzukic01   2017    MIA   NL 136 196  50
19 suzukic01   2018    SEA   AL  15  44   9
20 suzukic01   2019    SEA   AL   2   5   0

2012年のシーズンは、シーズン途中でマリナーズからヤンキースに移籍しているのでレコードが二つあることに注意。Gは出場試合数。ABは打席数。Hは安打数。