Lecture9: Shiny(その２)

shinyのロード

library(shiny)

★前回の課題 app_hcust

アプリケーションの起動

runApp("shiny_apps2/app_hclust")

★例1: “app_freqBar”

アプリケーションの起動

runApp("shiny_apps2/app_freqBar")

★例2: app_freqBar3

RColorBrewerパッケージ（色パレット）

library(RColorBrewer)
brewer.pal.info[]

色パレットの表示

display.brewer.all()

色パレットの情報取得

brewer.pal.info[]

brewer.pal(使用色数, パレット名)

brewer.pal(5, "BrBG")

Shiny内使用例

runApp("shiny_apps2/app_freqBar3")

global.R

ui.R, server.Rで使用する変数などを記述

source("getFreqDir.R")
univ <- getFreqDir("univ")

library(RColorBrewer)
binfo<-brewer.pal.info[]
palets <-rownames(binfo[binfo$maxcolors>10,])

★例3: app_wordcloud

前回の復習

source("getFreqDir.R")
univ <- getFreqDir("univ")

　wordcloud()の実行例

library(wordcloud)
wordcloud(rownames(univ),univ[,4],min.freq=2,colors=rainbow(10))

Shinyで実装

runApp("shiny_apps2/app_wordcloud")

★例4: app_comparisonCloud

　comparison.cloud()の実行例

library(wordcloud)
comparison.cloud(univ[,4:6],max.words=60)
comparison.cloud(univ[,c(2,6,8)],max.words=60)

Shinyで実装

runApp("shiny_apps2/app_comparisonCloud")

output$comparisonCloud()@server.R

  output$comparisonCloud <- renderPlot({
    name <- input$univName #文字型のリスト
    comparison.cloud(univ[,as.numeric(input$comparisonSet)],max.words=input$maxWords)
  })

★例5: app_wordcloudPlus

Shinyで実装

runApp("shiny_apps2/app_wordcloudPlus")

tabsetPanel()@ui.R

  mainPanel(
    tabsetPanel(    
      tabPanel("Word Cloud", plotOutput("wrdCloud")),
      tabPanel("Comparison Cloud", plotOutput("comparisonCloud"))
    )
  )

★演習問題

tabsetPanelを利用して、freqBar3とwordcloudを１つにまとめたアプリケーションを作成しなさい

実装画面例 alt text alt text