導入

こんなこと、ありませんか?

  • Rでデータ整形して表を作成
    • 上司は「一覧でよこせ」
    • csvで出力→Excelで提出
    • 屈☆辱!!

さらにこんなことも?

  • 上司「◯◯に該当するデータを調べろ」
    • Rで編集して(屈辱のxlsxで)提出
    • 「これやって。あとこれやって。」
    • またRで編集して(ry
    • いちいち面☆倒!!
    • これくらいそっちでやってくれ!!

そんなあなたにDT

  • DataTablesというインタラクティブな表を作ってくれるJavaScriptライブラリを、Rで使えるようにしたパッケージ
    • {htmlwidgets}を利用
    • Rのmatrixやdata frameからさくっとHTML形式の表を作成
    • なんとその場でフィルタリング・ページネーション、ソート、他にも表に入ってたら便利な機能が盛りだくさん!
    • RStudio謹製でRmdとの相性抜群!!

Hello, DT!

インストール

CRANからインストール

install.packages("DT")

あとはパッケージを読み込みましょう

library(DT)

はじめてのDT

さくっと作ってみましょう

library(DT)
datatable(iris)

実行すると、以下の様な感じになります

標準機能はそのまま説明なく使えるほど、わかりやすいです

DTの基本

メイン関数は datatable()

datatable(data, options = list(), class = "display", callback = JS("return table;"), 
    rownames, colnames, container, caption = NULL, filter = c("none", "bottom", 
        "top"), escape = TRUE, style = "default", width = "100%", selection = c("multiple", 
        "single", "none"), extensions = list(), plugins = NULL)

dataにmatrixやdata frameを指定します。あとは各種引数で指定したり、オプションやエクステンションで指定します。

Tableの書式設定について

  • この表はhtmlで出力
    • CSSで書式設定可能!うれしい!
    • いやいちいち面倒だろ…
  • classを活用
    • 予め大体のスタイルは準備されている
    • あとはこれで当てたい書式を指定すればOK
  • こんな感じです
datatable(head(iris), class = 'cell-border stripe')

styleの当て方

行名の表示・非表示

  • デフォルトでは表示されます
    • 引数でrownames=FALSEとすると非表示に
datatable(head(mtcars),rownames = FALSE)

行名の上書き

  • もちろんここで書き換えられます
datatable(head(mtcars), rownames = head(LETTERS))

列名(変数名)の書き換え

  • 列名も変更できます
datatable(head(iris),colnames = c('kosaki','chitoge','tsugumi','marika','koharu'))

  • 列番号で指定可能です
    • ただし、列番号で指定する時は、行名の列からカウントしてください
datatable(head(iris),colnames = c('kosaki'=4))

列のフィルター機能

  • なんと列ごとにフィルター機能をつけることができます
datatable(iris,filter = 'top')

  • フィルターにfactor型があると、選択することが可能
    • ただし、この場合はオプションでちょっと指定が必要
datatable(iris, filter = 'top',options = list(autoWidth=TRUE))

オプションの設定

初期値設定

  • 初期値設定もいろいろできます
    • 表示させる行数、幅など…
    • これらは、option=list(...)で指定していきます
    • オプションに引き渡すのはリスト型オブジェクト

表示させる行数の指定

  • options=list(pageLength=4)で4行表示を指定
datatable(iris, options = list(pageLength=4))

(初期値としての)並べ替え

  • options=list(order=...)で指定可能
datatable(iris, options = list(
  order=list(list(2,'asc'))
))

その他

extention

  • extention=...で拡張機能を使用可能
    • でも出来ること多すぎ…
    • いくつかわかりやすいものを紹介
  • 列を(あとから)並べ替えれるようにすることが可能
datatable(head(iris), extensions = 'ColReorder', options = list(dom = 'Rlfrtip'))

  • 列移動をリアルタイムで出せます
datatable(head(iris,4), extensions = 'ColReorder', options = list(
  dom = 'Rlfrtip', colReorder = list(realtime = TRUE)
))

列の表示・非表示機能

  • こんなこともできます
datatable(
  head(iris), rownames = FALSE,
  extensions = 'ColVis', options = list(dom = 'C<"clear">lfrtip')
)

横にスライドできるように

  • 列数が多い時に便利です
m = as.data.frame(round(matrix(rnorm(100), 5), 5))
datatable(
  m, extensions = 'FixedColumns',
  options = list(
    dom = 't',
    scrollX = TRUE,
    scrollCollapse = TRUE
  )
)

セルをハイライト

  • クリックしたりカーソルで枠が表示
datatable(iris, extensions = 'KeyTable')

スクローラー

  • スクロール機能も可能
m = matrix(runif(1000 * 4), ncol = 4, dimnames = list(NULL, letters[1:4]))
m = cbind(id = seq_len(nrow(m)), round(m, 2))
datatable(m, extensions = 'Scroller', options = list(
  deferRender = TRUE,
  dom = "frtiS",
  scrollY = 200,
  scrollCollapse = TRUE
))

もっと!!もっと!!

Enjoy!!