［R］MLBの投手の通算勝利数の20位までを調べる

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

> library(Lahman)
> library(tidyverse)
> tib <- Pitching %>% group_by(playerID) %>%
+ summarize(W = sum(W)) %>%
+ left_join(People, by = "playerID") %>%
+ select(nameFirst, nameLast, W)
> tib %>% arrange(desc(W)) %>%
+ as.data.frame() %>% head(20)
   nameFirst  nameLast   W
1         Cy     Young 511
2     Walter   Johnson 417
3       Pete Alexander 373
4    Christy Mathewson 373
5        Pud    Galvin 365
6     Warren     Spahn 363
7        Kid   Nichols 362
8       Greg    Maddux 355
9      Roger   Clemens 354
10       Tim     Keefe 342
11     Steve   Carlton 329
12      John  Clarkson 328
13     Eddie     Plank 326
14     Nolan      Ryan 324
15       Don    Sutton 324
16      Phil    Niekro 318
17   Gaylord     Perry 314
18       Tom    Seaver 311
19  Old Hoss  Radbourn 310
20    Mickey     Welch 307

投手の通算勝利数の一位はサイ・ヤングの511勝、二位はウォルター・ジョンソンの417勝、三位はピート・アレクサンダーの373勝であることがわかる。参考までに、野茂英雄は以下のとおり123勝。

> tib %>% filter(nameLast == "Nomo") %>% as.data.frame()
  nameFirst nameLast   W
1     Hideo     Nomo 123