Rでsparklineを書きたい

最近のExcelにはsparklineという機能があって下図のようにセルの中に折れ線グラフ等が描けたりする。

これをRでやりたいと思ってたらパッケージが公開されていたので試してみた。

インストール

GitHub - htmlwidgets/sparkline: jQuery Sparkline HTML Widget for Rに記載されている通り。githubからのインストールなのでdevtoolsパッケージが必要。

library(devtools)
install_github('htmlwidgets/sparkline')

sparklineをプロット

airqualityデータセットで試して見る。以下は5月から9月の風速と気温の平均を計算する例。

library(htmlwidgets)
library(sparkline)
library(dplyr)
d <- airquality %>%
  group_by(Month) %>%
  summarise(wind = mean(Wind),
            temp = mean(Temp))

RMarkdownでinlineで埋め込むと以下のように表示される。

| item | Sparkline             | BarChart                           | BoxPlot   
|------|-----------------------|------------------------------------|---------- 
| Wind | `r sparkline(d$wind)` | `r sparkline(d$wind, type ='bar')` | `r sparkline(d$wind, type ='box')`
| Temp | `r sparkline(d$temp)` | `r sparkline(d$temp, type ='bar')` | `r sparkline(d$wind, type ='box')`

---

公開元に

The API is pretty simple

とあるように非常に簡単にsparklineを描くことができた。