+/-

しかし, knitrbootstrapでかっこ良く組版したhtmlレポートに埋め込む方法が分かりません.

調べてみると, rChartsのdTableを使えば同じことが出来るらしいです.

テーブルをインタラクティブに作る

library(data.table)
library(rCharts)
library(dplyr)
central = c("中日", "巨人", "広島", "阪神", "DeNA", "ヤクルト")

dat = fread("baseballData.csv") %>%
  mutate(league = ifelse(team %in% central, "central", "pacific")) %>%
  mutate(hit = single + double + triple + homerun) %>%
  select(team, name, atbat, hit, single, double, triple, homerun, bb, swingout, league)

dat_central =
  dat %>% filter(league == "central")
dat_pacific =
  dat %>% filter(league == "pacific")

t2 = dTable(dat_central, sPaginationType='full_numbers', iDisplayLength=10, sScrollX='100%')
t2$print("chart2", cdn=TRUE)

rChartsでインタラクティブに可視化

概要

テーブルをインタラクティブに作る

感想