Rで表データの可視化（library gt）

今回はRで表データの可視化を行うときに便利なlibraryの紹介です。報告やレポート作成のとき、グラフはggplotや標準のグラフィックスで事足りると思いますが、集計表や表データは一度Excelで加工する工程も多かったと思います。そんなときに報告書作成に十分耐える表データの可視化におすすめですのでぜひ使ってみてください。

gtのサンプル

以下は公式ドキュメントをそのまま貼り付けたものです。これだけでも十分便利な気がします。

https://gt.rstudio.com/

library(gt)
 library(tidyverse)
 library(glue)
 Define the start and end dates for the data range
 start_date <- "2010-06-07"
 end_date <- "2010-06-14"
 Create a gt table based on preprocessed
 sp500 table data
 sp500 %>%
   dplyr::filter(date >= start_date & date <= end_date) %>%
   dplyr::select(-adj_close) %>%
   gt() %>%
   tab_header(
     title = "S&P 500",
     subtitle = glue::glue("{start_date} to {end_date}")
   ) %>%
   fmt_date(
     columns = vars(date),
     date_style = 3
   ) %>%
   fmt_currency(
     columns = vars(open, high, low, close),
     currency = "USD"
   ) %>%
   fmt_number(
     columns = vars(volume),
     suffixing = TRUE
   )

上記はこのライブラリを利用するときの考え方です。

サンプル１

head(iris) %>% 
   gt() %>% 
   tab_header("あいうえお") %>% 
   tab_source_note("かきくけこ")

表のストライピング

head(iris) %>% 
   gt() %>% 
   tab_header("あいうえお") %>% 
   tab_source_note("かきくけこ") %>% 
   opt_row_striping()

その他にできること

• 条件をつけて、セルの色分け
• 行や列のグループ名の表記
• 日本円の表示
• パーセント表示
• 行合計の表示