［R］10年ごとに最も多くホームランを放ったプレイヤー（「Rによるセイバーメトリクス入門」（技術評論社）pp.59-61）: Golden State

« ［R］データフレームの要素をHTMLやTeXの表に変換する | トップページ | ［R］iconv関数で文字列を変換するとバイト列の先頭に「FE FF」や「1B 24 42」が付く »

2023年3月26日 (日)

［R］10年ごとに最も多くホームランを放ったプレイヤー（「Rによるセイバーメトリクス入門」（技術評論社）pp.59-61）

> library(Lahman)
> library(tidyverse)
> hr_leader <- function(data) {
+ data %>% group_by(playerID) %>% summarize(HR = sum(HR)) %>%
+ arrange(desc(HR)) %>% head(1)
+ }
> Batting %>% mutate(decade = 10 * floor(yearID / 10)) %>%
+ split(pull(., decade)) %>% map_df(hr_leader, .id = "decade")
# A tibble: 16 × 3
   decade playerID     HR
   <chr>  <chr>     <int>
 1 1870   pikeli01     21
 2 1880   stoveha01    89
 3 1890   duffyhu01    83
 4 1900   davisha01    67
 5 1910   cravaga01   116
 6 1920   ruthba01    467
 7 1930   foxxji01    415
 8 1940   willite01   234
 9 1950   snidedu01   326
10 1960   killeha01   393
11 1970   stargwi01   296
12 1980   schmimi01   313
13 1990   mcgwima01   405
14 2000   rodrial01   435
15 2010   cruzne02    346
16 2020   perezsa02    59