［R］松井秀喜の大リーグでの年間打撃成績を調べる

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

> library(tidyverse)
> library(Lahman)
> plid <- (People %>% filter(nameFirst == "Hideki" & nameLast == "Matsui"))$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  matsuhi01   2003    NYA   AL 163 623 179
2  matsuhi01   2004    NYA   AL 162 584 174
3  matsuhi01   2005    NYA   AL 162 629 192
4  matsuhi01   2006    NYA   AL  51 172  52
5  matsuhi01   2007    NYA   AL 143 547 156
6  matsuhi01   2008    NYA   AL  93 337  99
7  matsuhi01   2009    NYA   AL 142 456 125
8  matsuhi01   2010    LAA   AL 145 482 132
9  matsuhi01   2011    OAK   AL 141 517 130
10 matsuhi01   2012    TBA   AL  34  95  14