Skip to content

Latest commit

 

History

History
4326 lines (4226 loc) · 37.6 KB

index.md

File metadata and controls

4326 lines (4226 loc) · 37.6 KB
title subtitle author job framework highlighter hitheme widgets mode ext_widgets knit
This is R:esult
Of course this doucment made from R.
Yuri Ohno
Free
io2012
highlight.js
tomorrow
bootstrap
quiz
shiny
interactive
selfcontained
rCharts
libraries/nvd3
libraries/highcharts
slidify::knit2slides

Agenda

  • Demonstrate Interactive Document with R and buddies
  • And how will you share it ?
  • rCharts Capabilites
  • GoogleViz Capabilities

Preliminary

You prepare RStudio(newer is better) and R(>3.0).

First of all, I'm sorry to say: you need Proxy... Type setting on RStudio console following manner.

Sys.setenv("http_proxy"="http://(your ID):(your PW)@proxy.xxxx.com:8080/")

And also if you use devtools::install_github(package) command, you should below setting.

library(httr)
set_config(
  use_proxy(url="proxy.xxxx.com", port=8080, username="your ID",password="your PW")
)

Caracters - Slidify

Slidify helps you create and publish beautiful HTML5 presentations from RMarkdown.

  • Install
require(devtools)
install_github(c('slidify', 'slidifyLibraries'), 'ramnathv')

Caracters - rCharts

rCharts is an R package to create, customize and publish interactive javascript visualizations from R using a familiar lattice style plotting interface.

  • Install
require(devtools)
install_github('rCharts', 'ramnathv')

Caracters - Shiny

A web application framework for R. Trurn your analyses into interactive web applications. No HTML, CSS, or JavaScript knowledge required.

  • Install
require(devtools)
install_github('shiny', 'rstudio')

Sub Caracters - GoogleViz

The googleVis package provides an interface between R and the Google Charts API. It allows users to create web pages with interactive charts based on R data frames, using the Google Charts API and to display them either via the local R HTTP help server or within their own sites, without uploading the data to Google. A modern browser with Internet connection is required and for some charts Flash.

install.packages('googleVis')

Sub Caracters - SPARQL

SPARQL is a kind of query language regarding with RDF(Resource Description Framework). R has plug-in support SPARQL client

  • Install
install.packages("SPARQL")

--- .segue .dark

Dive into Dynamic Document


いんたらくてぃぶ ちゃーと

Japanse also goes well.
日本語でも大丈夫 (Windowsはむりー!)

<script type='text/javascript'> $(document).ready(function(){ drawchart1() }); function drawchart1(){ var opts = { "dom": "chart1", "width": 800, "height": 400, "x": "Hair", "y": "Freq", "group": "Eye", "type": "multiBarChart", "id": "chart1" }, data = [ { "Hair": "Black", "Eye": "Brown", "Sex": "Male", "Freq": 32 }, { "Hair": "Brown", "Eye": "Brown", "Sex": "Male", "Freq": 53 }, { "Hair": "Red", "Eye": "Brown", "Sex": "Male", "Freq": 10 }, { "Hair": "Blond", "Eye": "Brown", "Sex": "Male", "Freq": 3 }, { "Hair": "Black", "Eye": "Blue", "Sex": "Male", "Freq": 11 }, { "Hair": "Brown", "Eye": "Blue", "Sex": "Male", "Freq": 50 }, { "Hair": "Red", "Eye": "Blue", "Sex": "Male", "Freq": 10 }, { "Hair": "Blond", "Eye": "Blue", "Sex": "Male", "Freq": 30 }, { "Hair": "Black", "Eye": "Hazel", "Sex": "Male", "Freq": 10 }, { "Hair": "Brown", "Eye": "Hazel", "Sex": "Male", "Freq": 25 }, { "Hair": "Red", "Eye": "Hazel", "Sex": "Male", "Freq": 7 }, { "Hair": "Blond", "Eye": "Hazel", "Sex": "Male", "Freq": 5 }, { "Hair": "Black", "Eye": "Green", "Sex": "Male", "Freq": 3 }, { "Hair": "Brown", "Eye": "Green", "Sex": "Male", "Freq": 15 }, { "Hair": "Red", "Eye": "Green", "Sex": "Male", "Freq": 7 }, { "Hair": "Blond", "Eye": "Green", "Sex": "Male", "Freq": 8 } ]
  if(!(opts.type==="pieChart" || opts.type==="sparklinePlus" || opts.type==="bulletChart")) {
    var data = d3.nest()
      .key(function(d){
        //return opts.group === undefined ? 'main' : d[opts.group]
        //instead of main would think a better default is opts.x
        return opts.group === undefined ? opts.y : d[opts.group];
      })
      .entries(data);
  }
  
  if (opts.disabled != undefined){
    data.map(function(d, i){
      d.disabled = opts.disabled[i]
    })
  }
  
  nv.addGraph(function() {
    var chart = nv.models[opts.type]()
      .width(opts.width)
      .height(opts.height)
      
    if (opts.type != "bulletChart"){
      chart
        .x(function(d) { return d[opts.x] })
        .y(function(d) { return d[opts.y] })
    }
      
     
    
      
    

    
    
    
  
   d3.select("#" + opts.id)
    .append('svg')
    .datum(data)
    .transition().duration(500)
    .call(chart);

   nv.utils.windowResize(chart.update);
   return chart;
  });
};
</script>

SPARQL

Get Start with "Disaster Prevention Information from Japan Meteorological Agency". Endpoint is "http://api.aitc.jp/ds/sparql". Because of lack of authetication, we should not hit it many times....

PREFIX xsd: <http://www.w3.org/2001/XMLSchema#>
PREFIX atom: <http://www.w3.org/2005/Atom#>
PREFIX jma: <http://cloud.projectla.jp/jma/>
PREFIX area: <http://cloud.projectla.jp/jma/area#>
PREFIX link2: <http://cloud.projectla.jp/jma/link2/>
SELECT ?title ?mon (COUNT(?id) as ?c) 
WHERE { ?id atom:title ?title . ?id atom:updated ?updated } 
GROUP BY ?title (CONCAT(STR(YEAR(xsd:dateTime(?updated))), '/', STR(MONTH(xsd:dateTime(?updated))), '/01') AS ?mon)

And then done

Unfortunatly API is very very fragile. So I stored data to CSV file(met.csv).

# implement library
require(SPARQL)
require(rCharts)

# set endpoint
endpoint <- "http://api.aitc.jp/ds/sparql"

# set query with SPARQL
q <- "(I mentioned before.)""

# Get Result
result <- SPARQL(url=endpoint, query=q, ns=prefix, extra=list(output="csv"), format="csv")
write.csv(result$result, file = "met.csv", row.names = T)

Visualization

Let's go on to the visualization with Highcharts.

<script type='text/javascript'> (function($){ $(function () { var chart = new Highcharts.Chart({ "dom": "chart2", "width": 800, "height": 400, "credits": { "href": null, "text": null }, "exporting": { "enabled": false }, "title": { "text": null }, "yAxis": [ { "title": { "text": "c" } } ], "series": [ { "data": [ [ 1356998400000, 10701 ], [ 1359676800000, 10149 ], [ 1362096000000, 11048 ], [ 1364774400000, 11797 ], [ 1367366400000, 9343 ], [ 1370044800000, 10671 ], [ 1372636800000, 15315 ], [ 1375315200000, 15721 ], [ 1377993600000, 12194 ], [ 1380585600000, 12271 ], [ 1383264000000, 10895 ], [ 1385856000000, 10712 ], [ 1388534400000, 10232 ], [ 1391212800000, 9864 ], [ 1393632000000, 11241 ], [ 1396310400000, 9571 ], [ 1398902400000, 10478 ], [ 1401580800000, 12611 ], [ 1404172800000, 6588 ] ], "name": "JMAXML publishing feed", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1367366400000, 18 ], [ 1370044800000, 7 ], [ 1372636800000, 66 ], [ 1375315200000, 94 ], [ 1377993600000, 8 ], [ 1396310400000, 2 ], [ 1398902400000, 18 ], [ 1401580800000, 24 ], [ 1404172800000, 10 ] ], "name": "スモッグ気象情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 24 ], [ 1359676800000, 3 ], [ 1362096000000, 45 ], [ 1364774400000, 28 ], [ 1367366400000, 17 ], [ 1370044800000, 31 ], [ 1372636800000, 29 ], [ 1375315200000, 59 ], [ 1377993600000, 24 ], [ 1380585600000, 35 ], [ 1383264000000, 22 ], [ 1385856000000, 25 ], [ 1388534400000, 25 ], [ 1391212800000, 27 ], [ 1393632000000, 50 ], [ 1396310400000, 4 ], [ 1398902400000, 13 ], [ 1401580800000, 13 ], [ 1404172800000, 11 ] ], "name": "異常天候早期警戒情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 14 ], [ 1359676800000, 17 ], [ 1362096000000, 20 ], [ 1364774400000, 17 ], [ 1367366400000, 14 ], [ 1370044800000, 22 ], [ 1372636800000, 17 ], [ 1375315200000, 16 ], [ 1377993600000, 20 ], [ 1380585600000, 18 ], [ 1383264000000, 10 ], [ 1385856000000, 16 ], [ 1388534400000, 19 ], [ 1391212800000, 13 ], [ 1393632000000, 15 ], [ 1396310400000, 9 ], [ 1398902400000, 10 ], [ 1401580800000, 15 ], [ 1404172800000, 8 ] ], "name": "火山の状況に関する解説情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1383264000000, 3 ], [ 1401580800000, 1 ] ], "name": "火山現象に関する海上警報・海上予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 38 ], [ 1356998400000, 3588 ], [ 1359676800000, 3420 ], [ 1362096000000, 3812 ], [ 1364774400000, 4201 ], [ 1367366400000, 2987 ], [ 1370044800000, 3371 ], [ 1372636800000, 5054 ], [ 1375315200000, 5253 ], [ 1377993600000, 3644 ], [ 1380585600000, 3621 ], [ 1383264000000, 3637 ], [ 1385856000000, 3548 ], [ 1388534400000, 3684 ], [ 1391212800000, 3182 ], [ 1393632000000, 4012 ], [ 1396310400000, 3369 ], [ 1398902400000, 3470 ], [ 1401580800000, 4330 ], [ 1404172800000, 1998 ] ], "name": "気象警報・注意報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1375315200000, 1734 ], [ 1377993600000, 3644 ], [ 1380585600000, 3621 ], [ 1383264000000, 3637 ], [ 1385856000000, 3548 ], [ 1388534400000, 3684 ], [ 1391212800000, 3182 ], [ 1393632000000, 4012 ], [ 1396310400000, 3369 ], [ 1398902400000, 3470 ], [ 1401580800000, 4330 ], [ 1404172800000, 1998 ] ], "name": "気象特別警報・警報・注意報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1377993600000, 7 ], [ 1404172800000, 23 ] ], "name": "気象特別警報報知", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 8 ], [ 1359676800000, 1 ], [ 1377993600000, 2 ], [ 1380585600000, 33 ], [ 1383264000000, 93 ], [ 1385856000000, 63 ], [ 1388534400000, 10 ], [ 1391212800000, 1 ] ], "name": "季節観測", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1364774400000, 2 ], [ 1370044800000, 1 ], [ 1372636800000, 23 ], [ 1375315200000, 28 ], [ 1377993600000, 20 ], [ 1380585600000, 3 ], [ 1401580800000, 5 ], [ 1404172800000, 1 ] ], "name": "記録的短時間大雨情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1359676800000, 1 ], [ 1364774400000, 1 ], [ 1367366400000, 1 ], [ 1375315200000, 1 ], [ 1377993600000, 1 ], [ 1393632000000, 1 ], [ 1398902400000, 1 ], [ 1404172800000, 2 ] ], "name": "顕著な地震の震源要素更新のお知らせ", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1364774400000, 37 ], [ 1370044800000, 39 ], [ 1372636800000, 164 ], [ 1375315200000, 65 ], [ 1377993600000, 472 ], [ 1380585600000, 51 ], [ 1383264000000, 2 ], [ 1391212800000, 3 ], [ 1393632000000, 4 ], [ 1396310400000, 9 ], [ 1401580800000, 16 ], [ 1404172800000, 63 ] ], "name": "指定河川洪水予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 5 ], [ 1356998400000, 526 ], [ 1359676800000, 476 ], [ 1362096000000, 507 ], [ 1364774400000, 502 ], [ 1367366400000, 527 ], [ 1370044800000, 510 ], [ 1372636800000, 527 ], [ 1375315200000, 527 ], [ 1377993600000, 510 ], [ 1380585600000, 527 ], [ 1383264000000, 510 ], [ 1385856000000, 527 ], [ 1388534400000, 527 ], [ 1391212800000, 475 ], [ 1393632000000, 527 ], [ 1396310400000, 510 ], [ 1398902400000, 527 ], [ 1401580800000, 510 ], [ 1404172800000, 208 ] ], "name": "紫外線観測データ", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 1 ], [ 1356998400000, 188 ], [ 1359676800000, 257 ], [ 1362096000000, 159 ], [ 1364774400000, 266 ], [ 1367366400000, 202 ], [ 1370044800000, 177 ], [ 1372636800000, 215 ], [ 1375315200000, 198 ], [ 1377993600000, 168 ], [ 1380585600000, 167 ], [ 1383264000000, 192 ], [ 1385856000000, 162 ], [ 1388534400000, 147 ], [ 1391212800000, 147 ], [ 1393632000000, 167 ], [ 1396310400000, 156 ], [ 1398902400000, 184 ], [ 1401580800000, 150 ], [ 1404172800000, 74 ] ], "name": "震源・震度に関する情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 20 ], [ 1359676800000, 29 ], [ 1362096000000, 17 ], [ 1364774400000, 22 ], [ 1367366400000, 20 ], [ 1370044800000, 14 ], [ 1372636800000, 23 ], [ 1375315200000, 18 ], [ 1377993600000, 12 ], [ 1380585600000, 18 ], [ 1383264000000, 24 ], [ 1385856000000, 23 ], [ 1388534400000, 10 ], [ 1391212800000, 14 ], [ 1393632000000, 10 ], [ 1396310400000, 15 ], [ 1398902400000, 14 ], [ 1401580800000, 17 ], [ 1404172800000, 7 ] ], "name": "震源に関する情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 27 ], [ 1359676800000, 43 ], [ 1362096000000, 23 ], [ 1364774400000, 45 ], [ 1367366400000, 22 ], [ 1370044800000, 17 ], [ 1372636800000, 28 ], [ 1375315200000, 22 ], [ 1377993600000, 20 ], [ 1380585600000, 27 ], [ 1383264000000, 33 ], [ 1385856000000, 32 ], [ 1388534400000, 13 ], [ 1391212800000, 17 ], [ 1393632000000, 18 ], [ 1396310400000, 22 ], [ 1398902400000, 17 ], [ 1401580800000, 23 ], [ 1404172800000, 10 ] ], "name": "震度速報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 34 ], [ 1359676800000, 72 ], [ 1362096000000, 271 ], [ 1364774400000, 261 ], [ 1367366400000, 161 ], [ 1370044800000, 82 ], [ 1372636800000, 178 ], [ 1375315200000, 94 ], [ 1377993600000, 85 ], [ 1380585600000, 43 ], [ 1383264000000, 115 ], [ 1385856000000, 111 ], [ 1388534400000, 51 ], [ 1391212800000, 78 ], [ 1393632000000, 230 ], [ 1396310400000, 308 ], [ 1398902400000, 144 ], [ 1401580800000, 87 ], [ 1404172800000, 75 ] ], "name": "生物季節観測", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 4 ], [ 1359676800000, 4 ], [ 1362096000000, 5 ], [ 1364774400000, 4 ], [ 1367366400000, 5 ], [ 1370044800000, 4 ], [ 1372636800000, 4 ], [ 1375315200000, 5 ], [ 1377993600000, 4 ], [ 1380585600000, 5 ], [ 1383264000000, 5 ], [ 1385856000000, 4 ], [ 1388534400000, 5 ], [ 1391212800000, 4 ], [ 1393632000000, 4 ], [ 1396310400000, 4 ], [ 1398902400000, 5 ], [ 1401580800000, 4 ], [ 1404172800000, 2 ] ], "name": "全般1か月予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 1 ], [ 1359676800000, 1 ], [ 1362096000000, 1 ], [ 1367366400000, 1 ], [ 1370044800000, 1 ], [ 1372636800000, 1 ], [ 1375315200000, 1 ], [ 1377993600000, 1 ], [ 1380585600000, 1 ], [ 1383264000000, 1 ], [ 1385856000000, 1 ], [ 1388534400000, 1 ], [ 1391212800000, 1 ], [ 1393632000000, 1 ], [ 1396310400000, 1 ], [ 1398902400000, 1 ], [ 1401580800000, 1 ] ], "name": "全般3か月予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1375315200000, 5 ], [ 1398902400000, 1 ] ], "name": "全般スモッグ気象情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 1 ], [ 1356998400000, 126 ], [ 1359676800000, 112 ], [ 1362096000000, 121 ], [ 1364774400000, 119 ], [ 1367366400000, 124 ], [ 1370044800000, 120 ], [ 1372636800000, 124 ], [ 1375315200000, 127 ], [ 1377993600000, 122 ], [ 1380585600000, 125 ], [ 1383264000000, 120 ], [ 1385856000000, 126 ], [ 1388534400000, 124 ], [ 1391212800000, 113 ], [ 1393632000000, 126 ], [ 1396310400000, 121 ], [ 1398902400000, 126 ], [ 1401580800000, 120 ], [ 1404172800000, 50 ] ], "name": "全般海上警報(定時)", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 5 ], [ 1370044800000, 5 ], [ 1372636800000, 23 ], [ 1375315200000, 45 ], [ 1377993600000, 67 ], [ 1380585600000, 104 ], [ 1383264000000, 38 ], [ 1393632000000, 15 ], [ 1396310400000, 7 ], [ 1404172800000, 29 ] ], "name": "全般海上警報(臨時)", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 1 ], [ 1356998400000, 20 ], [ 1359676800000, 10 ], [ 1362096000000, 17 ], [ 1364774400000, 16 ], [ 1367366400000, 3 ], [ 1370044800000, 11 ], [ 1372636800000, 27 ], [ 1375315200000, 36 ], [ 1377993600000, 10 ], [ 1380585600000, 1 ], [ 1383264000000, 18 ], [ 1385856000000, 28 ], [ 1388534400000, 2 ], [ 1391212800000, 14 ], [ 1393632000000, 19 ], [ 1396310400000, 7 ], [ 1398902400000, 5 ], [ 1401580800000, 21 ], [ 1404172800000, 9 ] ], "name": "全般気象情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 37 ], [ 1359676800000, 30 ], [ 1362096000000, 35 ], [ 1364774400000, 31 ], [ 1367366400000, 35 ], [ 1370044800000, 39 ], [ 1372636800000, 36 ], [ 1375315200000, 42 ], [ 1377993600000, 38 ], [ 1380585600000, 42 ], [ 1383264000000, 31 ], [ 1385856000000, 34 ], [ 1388534400000, 36 ], [ 1391212800000, 33 ], [ 1393632000000, 39 ], [ 1396310400000, 31 ], [ 1398902400000, 31 ], [ 1401580800000, 31 ], [ 1404172800000, 15 ] ], "name": "全般週間天気予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1370044800000, 14 ], [ 1372636800000, 12 ], [ 1375315200000, 14 ], [ 1377993600000, 24 ], [ 1380585600000, 58 ], [ 1401580800000, 5 ], [ 1404172800000, 24 ] ], "name": "全般台風情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1370044800000, 5 ], [ 1372636800000, 13 ], [ 1375315200000, 13 ], [ 1377993600000, 12 ], [ 1380585600000, 55 ], [ 1404172800000, 29 ] ], "name": "全般台風情報(詳細)", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 1 ], [ 1359676800000, 1 ], [ 1370044800000, 67 ], [ 1372636800000, 53 ], [ 1375315200000, 89 ], [ 1377993600000, 127 ], [ 1380585600000, 256 ], [ 1383264000000, 2 ], [ 1388534400000, 2 ], [ 1391212800000, 1 ], [ 1396310400000, 2 ], [ 1401580800000, 15 ], [ 1404172800000, 110 ] ], "name": "全般台風情報(定型)", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1359676800000, 1 ], [ 1377993600000, 1 ], [ 1391212800000, 1 ] ], "name": "全般暖・寒候期予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 2 ], [ 1359676800000, 2 ], [ 1362096000000, 2 ], [ 1364774400000, 2 ], [ 1367366400000, 2 ], [ 1370044800000, 2 ], [ 1372636800000, 2 ], [ 1375315200000, 3 ], [ 1377993600000, 3 ], [ 1380585600000, 3 ], [ 1383264000000, 2 ], [ 1385856000000, 2 ], [ 1388534400000, 2 ], [ 1391212800000, 1 ], [ 1393632000000, 1 ], [ 1396310400000, 2 ], [ 1398902400000, 2 ], [ 1401580800000, 2 ], [ 1404172800000, 1 ] ], "name": "全般潮位情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1364774400000, 1 ], [ 1367366400000, 1 ], [ 1370044800000, 2 ], [ 1372636800000, 3 ], [ 1375315200000, 4 ], [ 1383264000000, 1 ], [ 1385856000000, 1 ], [ 1388534400000, 1 ] ], "name": "全般天候情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 45 ], [ 1359676800000, 20 ], [ 1370044800000, 149 ], [ 1372636800000, 147 ], [ 1375315200000, 305 ], [ 1377993600000, 336 ], [ 1380585600000, 530 ], [ 1383264000000, 154 ], [ 1388534400000, 56 ], [ 1391212800000, 27 ], [ 1393632000000, 42 ], [ 1396310400000, 81 ], [ 1398902400000, 3 ], [ 1401580800000, 33 ], [ 1404172800000, 142 ] ], "name": "台風解析・予報情報(3日予報)", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 5 ], [ 1370044800000, 21 ], [ 1372636800000, 18 ], [ 1375315200000, 63 ], [ 1377993600000, 56 ], [ 1380585600000, 111 ], [ 1383264000000, 27 ], [ 1388534400000, 4 ], [ 1391212800000, 3 ], [ 1393632000000, 12 ], [ 1396310400000, 26 ], [ 1404172800000, 26 ] ], "name": "台風解析・予報情報(5日予報)", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1359676800000, 3 ], [ 1364774400000, 3 ], [ 1367366400000, 1 ], [ 1375315200000, 1 ], [ 1377993600000, 1 ], [ 1380585600000, 1 ], [ 1393632000000, 1 ], [ 1396310400000, 5 ], [ 1398902400000, 1 ], [ 1404172800000, 3 ] ], "name": "地震の活動状況等に関する情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 44 ], [ 1359676800000, 44 ], [ 1362096000000, 55 ], [ 1364774400000, 44 ], [ 1367366400000, 55 ], [ 1370044800000, 44 ], [ 1372636800000, 44 ], [ 1375315200000, 55 ], [ 1377993600000, 44 ], [ 1380585600000, 55 ], [ 1383264000000, 55 ], [ 1385856000000, 44 ], [ 1388534400000, 55 ], [ 1391212800000, 44 ], [ 1393632000000, 44 ], [ 1396310400000, 44 ], [ 1398902400000, 55 ], [ 1401580800000, 44 ], [ 1404172800000, 22 ] ], "name": "地方1か月予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 11 ], [ 1359676800000, 11 ], [ 1362096000000, 11 ], [ 1367366400000, 11 ], [ 1370044800000, 11 ], [ 1372636800000, 11 ], [ 1375315200000, 11 ], [ 1377993600000, 11 ], [ 1380585600000, 11 ], [ 1383264000000, 11 ], [ 1385856000000, 11 ], [ 1388534400000, 11 ], [ 1391212800000, 11 ], [ 1393632000000, 11 ], [ 1396310400000, 11 ], [ 1398902400000, 11 ], [ 1401580800000, 11 ] ], "name": "地方3か月予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 11 ], [ 1356998400000, 1129 ], [ 1359676800000, 1113 ], [ 1362096000000, 1094 ], [ 1364774400000, 1149 ], [ 1367366400000, 883 ], [ 1370044800000, 887 ], [ 1372636800000, 754 ], [ 1375315200000, 600 ], [ 1377993600000, 706 ], [ 1380585600000, 1105 ], [ 1383264000000, 977 ], [ 1385856000000, 1131 ], [ 1388534400000, 1067 ], [ 1391212800000, 1088 ], [ 1393632000000, 1188 ], [ 1396310400000, 819 ], [ 1398902400000, 1015 ], [ 1401580800000, 831 ], [ 1404172800000, 426 ] ], "name": "地方海上警報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 12 ], [ 1356998400000, 746 ], [ 1359676800000, 677 ], [ 1362096000000, 724 ], [ 1364774400000, 724 ], [ 1367366400000, 749 ], [ 1370044800000, 722 ], [ 1372636800000, 748 ], [ 1375315200000, 751 ], [ 1377993600000, 723 ], [ 1380585600000, 746 ], [ 1383264000000, 722 ], [ 1385856000000, 747 ], [ 1388534400000, 745 ], [ 1391212800000, 678 ], [ 1393632000000, 747 ], [ 1396310400000, 721 ], [ 1398902400000, 750 ], [ 1401580800000, 720 ], [ 1404172800000, 292 ] ], "name": "地方海上予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 1 ], [ 1356998400000, 140 ], [ 1359676800000, 72 ], [ 1362096000000, 95 ], [ 1364774400000, 126 ], [ 1367366400000, 24 ], [ 1370044800000, 126 ], [ 1372636800000, 263 ], [ 1375315200000, 300 ], [ 1377993600000, 216 ], [ 1380585600000, 288 ], [ 1383264000000, 104 ], [ 1385856000000, 173 ], [ 1388534400000, 73 ], [ 1391212800000, 146 ], [ 1393632000000, 98 ], [ 1396310400000, 41 ], [ 1398902400000, 50 ], [ 1401580800000, 142 ], [ 1404172800000, 200 ] ], "name": "地方気象情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1370044800000, 7 ], [ 1372636800000, 88 ], [ 1375315200000, 159 ], [ 1377993600000, 5 ], [ 1398902400000, 2 ], [ 1401580800000, 8 ], [ 1404172800000, 12 ] ], "name": "地方高温注意情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 691 ], [ 1359676800000, 621 ], [ 1362096000000, 658 ], [ 1364774400000, 645 ], [ 1367366400000, 695 ], [ 1370044800000, 672 ], [ 1372636800000, 686 ], [ 1375315200000, 691 ], [ 1377993600000, 675 ], [ 1380585600000, 682 ], [ 1383264000000, 664 ], [ 1385856000000, 693 ], [ 1388534400000, 687 ], [ 1391212800000, 626 ], [ 1393632000000, 689 ], [ 1396310400000, 666 ], [ 1398902400000, 688 ], [ 1401580800000, 667 ], [ 1404172800000, 279 ] ], "name": "地方週間天気予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1359676800000, 11 ], [ 1377993600000, 11 ], [ 1391212800000, 11 ] ], "name": "地方暖・寒候期予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 2 ], [ 1359676800000, 2 ], [ 1362096000000, 2 ], [ 1364774400000, 3 ], [ 1367366400000, 5 ], [ 1370044800000, 5 ], [ 1372636800000, 5 ], [ 1375315200000, 11 ], [ 1377993600000, 9 ], [ 1380585600000, 8 ], [ 1383264000000, 9 ], [ 1385856000000, 3 ], [ 1388534400000, 3 ], [ 1391212800000, 1 ], [ 1393632000000, 3 ], [ 1396310400000, 2 ], [ 1398902400000, 2 ], [ 1401580800000, 5 ], [ 1404172800000, 5 ] ], "name": "地方潮位情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1364774400000, 3 ], [ 1367366400000, 15 ], [ 1370044800000, 16 ], [ 1372636800000, 16 ], [ 1375315200000, 15 ], [ 1377993600000, 3 ], [ 1383264000000, 1 ], [ 1385856000000, 1 ], [ 1388534400000, 1 ], [ 1398902400000, 2 ], [ 1401580800000, 11 ], [ 1404172800000, 1 ] ], "name": "地方天候情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1359676800000, 2 ], [ 1364774400000, 3 ], [ 1367366400000, 1 ], [ 1380585600000, 3 ], [ 1396310400000, 2 ], [ 1404172800000, 3 ] ], "name": "津波警報・注意報・予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1364774400000, 3 ], [ 1367366400000, 1 ], [ 1380585600000, 3 ], [ 1396310400000, 2 ], [ 1404172800000, 3 ] ], "name": "津波警報・注意報・予報a", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1359676800000, 9 ], [ 1380585600000, 6 ], [ 1396310400000, 13 ], [ 1404172800000, 6 ] ], "name": "津波情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1380585600000, 6 ], [ 1396310400000, 13 ], [ 1404172800000, 6 ] ], "name": "津波情報a", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1364774400000, 14 ], [ 1367366400000, 8 ], [ 1370044800000, 34 ], [ 1372636800000, 282 ], [ 1375315200000, 239 ], [ 1377993600000, 357 ], [ 1380585600000, 58 ], [ 1391212800000, 10 ], [ 1396310400000, 4 ], [ 1398902400000, 4 ], [ 1401580800000, 90 ], [ 1404172800000, 108 ] ], "name": "土砂災害警戒情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 1 ], [ 1359676800000, 1 ], [ 1362096000000, 1 ], [ 1364774400000, 1 ], [ 1367366400000, 1 ], [ 1370044800000, 1 ], [ 1372636800000, 1 ], [ 1375315200000, 1 ], [ 1377993600000, 1 ], [ 1380585600000, 1 ], [ 1383264000000, 1 ], [ 1385856000000, 1 ], [ 1388534400000, 1 ], [ 1391212800000, 1 ], [ 1393632000000, 1 ], [ 1396310400000, 1 ], [ 1398902400000, 1 ], [ 1401580800000, 1 ] ], "name": "東海地震観測情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 10 ], [ 1356998400000, 155 ], [ 1359676800000, 129 ], [ 1362096000000, 463 ], [ 1364774400000, 285 ], [ 1367366400000, 4 ], [ 1370044800000, 46 ], [ 1372636800000, 82 ], [ 1375315200000, 31 ], [ 1377993600000, 197 ], [ 1380585600000, 380 ], [ 1383264000000, 159 ], [ 1385856000000, 197 ], [ 1388534400000, 56 ], [ 1391212800000, 171 ], [ 1393632000000, 138 ], [ 1396310400000, 30 ], [ 1398902400000, 190 ], [ 1401580800000, 32 ], [ 1404172800000, 207 ] ], "name": "特殊気象報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 61 ], [ 1359676800000, 87 ], [ 1362096000000, 82 ], [ 1364774400000, 21 ], [ 1388534400000, 33 ], [ 1391212800000, 86 ], [ 1393632000000, 92 ], [ 1396310400000, 75 ], [ 1398902400000, 21 ] ], "name": "府県海氷予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 9 ], [ 1356998400000, 531 ], [ 1359676800000, 323 ], [ 1362096000000, 389 ], [ 1364774400000, 542 ], [ 1367366400000, 123 ], [ 1370044800000, 457 ], [ 1372636800000, 970 ], [ 1375315200000, 1135 ], [ 1377993600000, 921 ], [ 1380585600000, 950 ], [ 1383264000000, 442 ], [ 1385856000000, 612 ], [ 1388534400000, 277 ], [ 1391212800000, 680 ], [ 1393632000000, 390 ], [ 1396310400000, 161 ], [ 1398902400000, 201 ], [ 1401580800000, 595 ], [ 1404172800000, 759 ] ], "name": "府県気象情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1367366400000, 1 ], [ 1370044800000, 43 ], [ 1372636800000, 541 ], [ 1375315200000, 797 ], [ 1377993600000, 30 ], [ 1398902400000, 16 ], [ 1401580800000, 58 ], [ 1404172800000, 74 ] ], "name": "府県高温注意情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 3474 ], [ 1359676800000, 3139 ], [ 1362096000000, 3310 ], [ 1364774400000, 3254 ], [ 1367366400000, 3475 ], [ 1370044800000, 3363 ], [ 1372636800000, 3475 ], [ 1375315200000, 3482 ], [ 1377993600000, 3366 ], [ 1380585600000, 3459 ], [ 1383264000000, 3361 ], [ 1385856000000, 3474 ], [ 1388534400000, 3478 ], [ 1391212800000, 3140 ], [ 1393632000000, 3472 ], [ 1396310400000, 3361 ], [ 1398902400000, 3472 ], [ 1401580800000, 3358 ], [ 1404172800000, 1400 ] ], "name": "府県週間天気予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 8 ], [ 1359676800000, 8 ], [ 1362096000000, 11 ], [ 1364774400000, 8 ], [ 1367366400000, 14 ], [ 1370044800000, 19 ], [ 1372636800000, 25 ], [ 1375315200000, 40 ], [ 1377993600000, 31 ], [ 1380585600000, 22 ], [ 1383264000000, 21 ], [ 1385856000000, 9 ], [ 1388534400000, 12 ], [ 1391212800000, 2 ], [ 1393632000000, 5 ], [ 1396310400000, 4 ], [ 1398902400000, 7 ], [ 1401580800000, 15 ], [ 1404172800000, 20 ] ], "name": "府県潮位情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 69 ], [ 1356998400000, 6488 ], [ 1359676800000, 5938 ], [ 1362096000000, 6409 ], [ 1364774400000, 6677 ], [ 1367366400000, 6361 ], [ 1370044800000, 6642 ], [ 1372636800000, 7795 ], [ 1375315200000, 7793 ], [ 1377993600000, 6591 ], [ 1380585600000, 6600 ], [ 1383264000000, 6394 ], [ 1385856000000, 6411 ], [ 1388534400000, 6504 ], [ 1391212800000, 5897 ], [ 1393632000000, 6752 ], [ 1396310400000, 6371 ], [ 1398902400000, 6680 ], [ 1401580800000, 7238 ], [ 1404172800000, 3017 ] ], "name": "府県天気概況", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1354320000000, 65 ], [ 1356998400000, 5825 ], [ 1359676800000, 5339 ], [ 1362096000000, 5749 ], [ 1364774400000, 5786 ], [ 1367366400000, 5918 ], [ 1370044800000, 6121 ], [ 1372636800000, 6782 ], [ 1375315200000, 6932 ], [ 1377993600000, 6059 ], [ 1380585600000, 5986 ], [ 1383264000000, 5836 ], [ 1385856000000, 5906 ], [ 1388534400000, 5807 ], [ 1391212800000, 5235 ], [ 1393632000000, 5913 ], [ 1396310400000, 5566 ], [ 1398902400000, 6040 ], [ 1401580800000, 6516 ], [ 1404172800000, 2652 ] ], "name": "府県天気予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1364774400000, 13 ], [ 1367366400000, 16 ], [ 1370044800000, 44 ], [ 1372636800000, 29 ], [ 1375315200000, 63 ], [ 1377993600000, 8 ], [ 1383264000000, 5 ], [ 1385856000000, 4 ], [ 1388534400000, 4 ] ], "name": "府県天候情報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1356998400000, 229 ], [ 1359676800000, 241 ], [ 1362096000000, 135 ], [ 1364774400000, 31 ], [ 1367366400000, 129 ], [ 1370044800000, 37 ], [ 1372636800000, 220 ], [ 1375315200000, 281 ], [ 1377993600000, 279 ], [ 1380585600000, 214 ], [ 1383264000000, 128 ], [ 1385856000000, 110 ], [ 1388534400000, 54 ], [ 1391212800000, 75 ], [ 1393632000000, 135 ], [ 1396310400000, 51 ], [ 1398902400000, 53 ], [ 1401580800000, 100 ], [ 1404172800000, 26 ] ], "name": "噴火に関する火山観測報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1370044800000, 1 ], [ 1372636800000, 2 ], [ 1377993600000, 1 ], [ 1380585600000, 2 ], [ 1383264000000, 1 ], [ 1385856000000, 1 ], [ 1393632000000, 1 ], [ 1401580800000, 3 ] ], "name": "噴火警報・予報", "type": null, "marker": { "radius": 3 } }, { "data": [ [ 1359676800000, 3 ], [ 1362096000000, 48 ], [ 1364774400000, 46 ], [ 1367366400000, 20 ], [ 1370044800000, 23 ], [ 1372636800000, 414 ], [ 1375315200000, 389 ], [ 1377993600000, 271 ], [ 1380585600000, 54 ], [ 1383264000000, 158 ], [ 1385856000000, 72 ], [ 1388534400000, 14 ], [ 1391212800000, 36 ], [ 1393632000000, 29 ], [ 1396310400000, 14 ], [ 1398902400000, 100 ], [ 1401580800000, 110 ], [ 1404172800000, 123 ] ], "name": "竜巻注意情報", "type": null, "marker": { "radius": 3 } } ], "xAxis": [ { "type": "datetime", "labels": { "format": "{value:%Y-%m}" } } ], "subtitle": { "text": null }, "id": "chart2", "chart": { "renderTo": "chart2" } }); }); })(jQuery); </script>

And More

Including Shiny, we can dive into data (If shiny server doesn't run, you can't see below chart.)

Choose Data 気象特別警報・警報・注意報 土砂災害警戒情報 震源に関する情報 <script type="application/json" data-for="title" data-nonempty="">{}</script> Choose Type line scatter <script type="application/json" data-for="type" data-nonempty="">{}</script>

--- .segue .dark

And how will you share it ?

--- .quote

Unfortunatly that might be quit difficult !

Shiny apps need to run above shiny server. In this case, back logic cann't be packed into client app. I mean that with only iPad you cann't view it.

In conclusion, you should create iOS app like shiny server.

--- .segue .dark

rCharts Capabilities


  • So many JavaScript Vizualization Tool include in.
    • Polycharts
    • Morris
    • NVD3
    • xCharts
    • HighCharts
    • Leaflet
    • Rickshaw
    • end more !
  • You can play in here.

--- .segue .dark

GoogleVis Capabilities


  • Below official document is very helpful at first time

Reference