Mental Health in Tech 2014 調査を探索する
気後れする必要はありません。この演習では、カスタムのエラーメッセージ以外のアプリ全体を一気に作成します！
このアプリでは、「雇用主とメンタルヘルスの問題について話し合うと、悪影響があると思いますか？」（mental_health_consequence 変数）と「あなたの雇用主は、メンタルヘルスを身体の健康と同じくらい真剣に捉えていると感じますか？」（mental_vs_physical）という質問を複数選択の入力として使い、回答者の Age のヒストグラムを表示します。各変数の選択肢を確認するには、コンソールで count() を実行してください。
完了時のアプリは次のようになります（空のプロットを含みます）：
shiny、ggplot2、dplyr、そして mental_health_survey データセットはすでに読み込まれています。
この演習はコースの一部です
Rで作るShiny Webアプリケーション
演習の手順
- UI:
- アプリに適切なタイトルを追加します。
checkboxGroupInput()を追加します。selected引数にはデフォルト値を指定します。pickerInput()を追加し、multiple引数をTRUEに設定します。- メインパネルに
plotOutput()を追加します。
- Server:
- 2つの入力でフィルタして、回答者の
Ageのヒストグラムを表示する出力を追加します。
- 2つの入力でフィルタして、回答者の
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
ui <- fluidPage(
# CODE BELOW: Add an appropriate title
sidebarPanel(
# CODE BELOW: Add a checkboxGroupInput
# CODE BELOW: Add a pickerInput
),
mainPanel(
# CODE BELOW: Display the output
)
)
server <- function(input, output, session) {
# CODE BELOW: Build a histogram of the age of respondents
# Filtered by the two inputs
}
shinyApp(ui, server)