あなたの町の要介護

下記URLから取得したデータを可視化したものです。 縦軸：要支援〜要介護５までの合計人数に対する各区分の割合 横軸：時期 http://www.wam.go.jp/wamappl/00youkaigo.nsf/vKikan?OpenView

library(rCharts)
library(dplyr)
youkaigo <- read.csv("http://dl.dropboxusercontent.com/u/956851/youkaigo_area.csv", 
    as.is = TRUE)
youkaigo$date <- as.Date(youkaigo$date)
youkaigo$prop <- round(youkaigo$prop, 1)/100
youkaigo$area <- factor(youkaigo$area, levels = 1:6, labels = c("北海道/東北", 
    "関東", "甲信越/北陸", "東海/近畿", "中部/四国", "九州/沖縄"))
youkaigo <- reshape(youkaigo[, -5], idvar = c("保険者", "area", "date"), 
    timevar = "variable", direction = "wide")
colnames(youkaigo) <- gsub("prop\\.", "", colnames(youkaigo))
n1 <- nPlot(要支援 ~ date, group = "保険者", data = youkaigo, type = "lineChart")
n1$xAxis(tickValues = "#![11323,11700,12060,12420,12790,13150,13520,13880,14250,14615,14980,15345,15710,16071,16430]!#", 
    tickFormat = "#!function(d) {return d3.time.format('%Y')(new Date( d * 86400000 ));}!#")
n1$yAxis(tickFormat = "#!function(d) {return d3.format('%')(d)}!#")
n1$chart(forceY = "#![0]!#")
n1$addControls("y", value = "要支援", values = names(youkaigo)[-(1:3)])
n1$addFilters("area")
n1$show("iframesrc", cdn = TRUE)