【R】gtExtras

1. はじめに

gtExtrasは、gtでキレイな表を作成するときに手助けしてくれる拡張機能を提供するパッケージです。

2. インストール

Githubからインストールできます。

remotes::install_github("jthomasmock/gtExtras")

3. つかってみる

では、つかってみます。gtcarsというデータをつかいます。

gtcars

> gtcars
# A tibble: 47 x 15
   mfr    model      year trim       bdy_style    hp hp_rpm   trq trq_rpm mpg_c mpg_h drivetrain trsmn ctry_origin   msrp
   <chr>  <chr>     <dbl> <chr>      <chr>     <dbl>  <dbl> <dbl>   <dbl> <dbl> <dbl> <chr>      <chr> <chr>        <dbl>
 1 Ford   GT         2017 Base Coupe coupe       647   6250   550    5900    11    18 rwd        7a    United Sta~ 4.47e5
 2 Ferra~ 458 Spec~  2015 Base Coupe coupe       597   9000   398    6000    13    17 rwd        7a    Italy       2.92e5
 3 Ferra~ 458 Spid~  2015 Base       converti~   562   9000   398    6000    13    17 rwd        7a    Italy       2.64e5
 4 Ferra~ 458 Ital~  2014 Base Coupe coupe       562   9000   398    6000    13    17 rwd        7a    Italy       2.34e5
 5 Ferra~ 488 GTB    2016 Base Coupe coupe       661   8000   561    3000    15    22 rwd        7a    Italy       2.45e5
 6 Ferra~ Californ~  2015 Base Conv~ converti~   553   7500   557    4750    16    23 rwd        7a    Italy       1.99e5
 7 Ferra~ GTC4Lusso  2017 Base Coupe coupe       680   8250   514    5750    12    17 awd        7a    Italy       2.98e5
 8 Ferra~ FF         2015 Base Coupe coupe       652   8000   504    6000    11    16 awd        7a    Italy       2.95e5
 9 Ferra~ F12Berli~  2015 Base Coupe coupe       731   8250   509    6000    11    16 rwd        7a    Italy       3.20e5
10 Ferra~ LaFerrari  2015 Base Coupe coupe       949   9000   664    6750    12    16 rwd        7a    Italy       1.42e6
# ... with 37 more rows

library(gtExtras)
library(gt)
library(tidyverse)

gtcars %>%
  head(13) %>%
  select(mfr, model, year, bdy_style, mpg_h, hp, trq) %>%
  mutate(mpg_h = rnorm(n = dplyr::n(), mean = 22, sd = 1)) %>%
  gt() %>%
  opt_table_lines() %>%
  fmt_symbol_first(column = mfr, symbol = "$", last_row_n = 6) %>%
  fmt_symbol_first(column = year, suffix = "FY") %>%
  fmt_symbol_first(column = mpg_h, symbol = "%", decimals = 1) %>%
  fmt_symbol_first(hp, symbol = "°", suffix = "F", symbol_first = TRUE) %>% 
  fmt_symbol_first(trq, suffix = "N/m", symbol_first = TRUE)

いくつかのスタイルも用意されています。

head(gtcars) %>% 
  head(20) %>% 
  gt() %>% 
  gt_theme_nytimes() %>% 
  tab_header(title = "Table styled like the NY Times")

gtcars %>%
  head(20) %>%
  gt() %>%
  gt_color_rows(
    hp:mpg_h, palette = c("white", "blue"),
    use_paletteer = FALSE)

4. さいごに

いろいろできてすごいです！絶賛されているのもうなずけます。