Shinyでスパークラインを表示する

役に立つかは不明だが、表示されるとちょっとうれしいスパークラインをShinyで出してみましょう。

リソース

git_hubオフィシャルページ

設定項目の解説(利用しているJSライブラリのページです)

インストール方法

まだCRANにはありません。githubからインストールしましょう。
devtools::install_github("Bart6114/sparklines")

動作コード

オフィシャルサンプルをベースにちょっとだけいじってみました。これ以外にbulletチャート、pieチャートが使用できます。まだ開発中ということもありW/Hを指定してもサイズに収まらないものがいくつかあるようです。

library(shiny)
library(sparklines)

server <- function(input, output) {
  output$spark1 <- renderSparkline(sparkline(runif(input$values, -5, 5), "line", width = 150, height = 30))
  output$spark2 <- renderSparkline(sparkline(runif(input$values, -5, 5), "bar", width = 150, height = 30))
  output$spark3 <- renderSparkline(sparkline(runif(input$values, -5, 5), "discrete", width = 150, height = 30))
  output$spark4 <- renderSparkline(sparkline(runif(input$values, -5, 5), "tristate", width = 150, height = 30))
  output$spark5 <- renderSparkline(sparkline(runif(input$values, -5, 5), "box", width = 150, height = 30))
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("values", "Number of values:", min = 5, max = 100, value = 10)
    ),
    mainPanel(
      div(sparklineOutput("spark1")),
      div(sparklineOutput("spark2")),
      div(sparklineOutput("spark3")),
      div(sparklineOutput("spark4")),
      div(sparklineOutput("spark5"))
    )
  )
)

shinyApp(ui = ui, server = server)

「おー」って感じですね！。「おー」の後なかなか分析につながらないのがスパークラインではありますが、それっぽさ醸成のために飾りとして使うのはアリかと思っています。