Shinyチュートリアル（レッスン５）　Bootstrapウィジェットを追加する

今回から３回にわけて国勢調査のデータを使ったインタラクティブなWebアプリケーションを作成していきます。

なお、この記事は、
http://shiny.rstudio.com/tutorial/lesson5/をもとに作成しています。

# server.R

shinyServer(
  function(input, output) {}
)

# ui.R

shinyUI(pageWithSidebar(
  headerPanel("censusVis"),
  sidebarPanel(),
  mainPanel()
))

アメリカの人口統計データをダウンロードします。
rstudioのWebサイトからダウンロードすることができます。

ダウンロードしたファイルはプロジェクトディレクトリの直下に”data”ディレクトリを作成して格納します

コロプレスマップ（choropleth maps）を作成するためのRスクリプトをダウンロードします。
shiny学習用に作成されたRスクリプトがrstudioのWebサイトにあるので、これをダウンロードします。

ui.R、server.Rと同じディレクトリに格納しておきます。

helpers.Rは、maps, mapprojパッケージを使っていようなので、
インストールしていない場合はインストールします。

install.packages("maps")
install.packages("mapproj")

コロプレスマップを表示してみます。
RStudioのconsoleから次のプログラムを順に実行します。

source("helpers.R")
counties <- readRDS("data/counties.RDS")
percent_map(counties$white, "darkgreen", "% white")

RStudioの画面には、こんな感じで表示されます。

オープンデータとプログラミング