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

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

> library(Lahman)
> library(tidyverse)
> Batting %>% group_by(playerID) %>% summarize(SB = sum(SB)) %>%
+ left_join(People, by = "playerID") %>%
+ select(nameFirst, nameLast, SB) %>% arrange(desc(SB)) %>%
+ as.data.frame() %>% head(20)
   nameFirst    nameLast   SB
1     Rickey   Henderson 1406
2        Lou       Brock  938
3      Billy    Hamilton  914
4         Ty        Cobb  896
5        Tim      Raines  808
6      Vince     Coleman  752
7      Eddie     Collins  741
8        Max       Carey  738
9      Honus      Wagner  723
10       Joe      Morgan  689
11    Willie      Wilson  668
12      Bert  Campaneris  649
13     Kenny      Lofton  622
14      Otis       Nixon  620
15    George       Davis  619
16      Juan      Pierre  614
17     Billy         Hoy  596
18     Maury       Wills  586
19    George Van Haltren  583
20     Ozzie       Smith  580

通算盗塁数の一位はリッキー・ヘンダーソンの1406個、二位はルー・ブロックの938個、三位はビリー・ハミルトンの914個であることがわかる。

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

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

> library(Lahman)
> library(tidyverse)
> Batting %>% group_by(playerID) %>% summarize(HR = sum(HR)) %>%
+ left_join(People, by = "playerID") %>%
+ select(nameFirst, nameLast, HR) %>% arrange(desc(HR)) %>%
+ as.data.frame() %>% head(20)
   nameFirst  nameLast  HR
1      Barry     Bonds 762
2       Hank     Aaron 755
3       Babe      Ruth 714
4     Albert    Pujols 703
5       Alex Rodriguez 696
6     Willie      Mays 660
7        Ken   Griffey 630
8        Jim     Thome 612
9      Sammy      Sosa 609
10     Frank  Robinson 586
11      Mark   McGwire 583
12    Harmon Killebrew 573
13    Rafael  Palmeiro 569
14    Reggie   Jackson 563
15     Manny   Ramirez 555
16      Mike   Schmidt 548
17     David     Ortiz 541
18    Mickey    Mantle 536
19    Jimmie      Foxx 534
20    Willie   McCovey 521

通算本塁打数の一位はバリー・ボンズの762本、二位はハンク・アーロンの755本、三位はベーブ・ルースの714本であることがわかる。

［R］画面表示でtibbleの中身を任意の行数出力する

tibbleは画面表示を任意の行数にするにはprint関数を使用してnオプションに必要な行数を指定すればよい。

> library(tidyverse)
> nn <- 20
> n <- 1:nn
> s0 <- c("鈴木みのり", "近藤唯", "会沢紗弥")
> s <- sample(s0, nn, replace = TRUE)
> tib <- tibble(n, s)
> tib
# A tibble: 20 × 2
       n s         
   <int> <chr>     
 1     1 鈴木みのり
 2     2 近藤唯    
 3     3 近藤唯    
 4     4 会沢紗弥  
 5     5 会沢紗弥  
 6     6 近藤唯    
 7     7 近藤唯    
 8     8 会沢紗弥  
 9     9 鈴木みのり
10    10 会沢紗弥  
11    11 会沢紗弥  
12    12 会沢紗弥  
13    13 会沢紗弥  
14    14 近藤唯    
15    15 近藤唯    
16    16 近藤唯    
17    17 鈴木みのり
18    18 会沢紗弥  
19    19 会沢紗弥  
20    20 鈴木みのり
> print(tib, n = 4)
# A tibble: 20 × 2
      n s         
  <int> <chr>     
1     1 鈴木みのり
2     2 近藤唯    
3     3 近藤唯    
4     4 会沢紗弥  
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> tib %>% print(n = 4)
# A tibble: 20 × 2
      n s         
  <int> <chr>     
1     1 鈴木みのり
2     2 近藤唯    
3     3 近藤唯    
4     4 会沢紗弥  
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows