［R］MLBの通算二塁打数の20位までを調べる

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

> library(Lahman)
> library(tidyverse)
> Batting %>% group_by(playerID) %>% summarize(X2B = sum(X2B)) %>%
+ left_join(People, by = "playerID") %>%
+ select(nameFirst, nameLast, X2B) %>% arrange(desc(X2B)) %>%
+ as.data.frame() %>% head(20)
   nameFirst    nameLast X2B
1       Tris     Speaker 792
2       Pete        Rose 746
3       Stan      Musial 725
4         Ty        Cobb 724
5     Albert      Pujols 686
6      Craig      Biggio 668
7     George       Brett 665
8        Nap      Lajoie 657
9       Carl Yastrzemski 646
10     Honus      Wagner 643
11    Adrian      Beltre 636
12     David       Ortiz 632
13      Hank       Aaron 624
14    Miguel     Cabrera 607
15      Paul     Molitor 605
16      Paul       Waner 605
17       Cal      Ripken 603
18     Barry       Bonds 601
19      Luis    Gonzalez 596
20      Todd      Helton 592

通算通算二塁打数の一位はトリス・スピーカーの792本、二位はピート・ローズの746本、三位はスタン・ミュージアルの725本であることがわかる。参考までに、イチローは以下のとおり362本。

> Batting %>% group_by(playerID) %>% summarize(X2B = sum(X2B)) %>%
+ left_join(People, by = "playerID") %>%
+ select(nameFirst, nameLast, X2B) %>% filter(nameFirst == "Ichiro") %>%
+ as.data.frame()
  nameFirst nameLast X2B
1    Ichiro   Suzuki 362