nezuQ

## Readme.R
# Rコンソールで下記コマンドを実行すると、ツールが起動する。
#   ※本ツールのRソースのダウンロードは下記コマンドで行う為、不要となる。
#   ※Windows環境下では文字化けを起こす。その時はブラウザのエンコード指定を[UTF-8]から[SHIFT-JIS]に変える必要がある。
install.packages("shiny")
library(shiny)
options(encoding = "UTF-8")
shiny::runGist("4702281")

# ツールを終了する時はRコンソールでESCキーを押す。
# その後、下記コマンドを実行する。

## SPARQL.R
library(SPARQL)
endpoint <- "http://id.ndl.go.jp/auth/ndla/"
query <-
"
PREFIX rda: <http://RDVocab.info/ElementsGr2/>
PREFIX foaf: <http://xmlns.com/foaf/0.1/>

SELECT
   ?birth ?death
WHERE {

## countries.geo.json

      
              2 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                nezuQ
                / countries.geo.json
            
            
              Last active
              December 16, 2015 19:59
            
              
                D3習作 - 同性婚法制化の流れ
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## _.md

      
              4 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                nezuQ
                / _.md
            
            
              Created
              May 5, 2013 14:50
            
              
                Tributary inlet
              
          
    [ Launch: Tributary inlet ] 5521024 by nezuQ

  
## d3.chart.min.js
/*! d3.chart - v0.1.0
 *  License: MIT Expat
 *  Date: 2013-05-27
 */
(function(t){"use strict";var n=t.d3,e={noBase:Error("d3.layer must be initialized with a base"),noDataBind:Error("d3.layer must specify a `dataBind` method."),noInsert:Error("d3.layer must specify an `insert` method.")},r=function(t){if(!t)throw e.noBase;this._base=t,this._handlers={}};r.prototype.dataBind=function(){throw e.noDataBind},r.prototype.insert=function(){throw e.noInsert},r.prototype.on=function(t,n,e){e=e||{},t in this._handlers||(this._handlers[t]=[]),this._handlers[t].push({callback:n,chart:e.chart||null})},r.prototype.off=function(t,n){var e,r=this._handlers[t];if(r){if(1===arguments.length)return r.length=0,undefined;for(e=r.length-1;e>-1;--e)r[e].callback===n&&r.splice(e,1)}},r.prototype.draw=function(t){var e,r,i,s,o,a,h,c;if(e=this.dataBind.call(this._base,t),!(e instanceof n.selection))throw Error("Invalid selection defined by `dataBind` method.");r=e.enter(),r._chart=this._base._chart,i=[{name:"update",selection:e},{n

## index.html
<!DOCTYPE html>
<meta charset="utf-8">
<html>
<head>
<script type="text/javascript" src="http://d3js.org/d3.v3.js"></script>
<style type="text/css">
.link { stroke: #ccc; }
.nodetext { pointer-events: none; font: 12px; }
</style>
</head>

## data.csv

          
            年代
            死亡
            失そう
            世帯主の傷病治癒
            世帯員の傷病治癒
            働きによる収入の増加・取得
            働き手の転入
            社会保障給付金の増加
            仕送りの増加
            親類・縁者等の引取り
            施設入所
            医療費の他法負担
            その他

            
              1986
              66
              197
              1906
              87
              822
              89
              137
              51
              74
              16
              8
              340

            
              1987
              39
              182
              1306
              93
              820
              90
              89
              42
              62
              18
              10
              265

            
              1988
              44
              210
              1410
              63
              691
              69
              65
              23
              51
              16
              8
              275

            
              1989
              54
              218
              1380
              54
              529
              39
              44
              23
              40
              13
              5
              234

            
              1990
              49
              209
              1387
              46
              490
              52
              43
              27
              53
              6
              5
              106

            
              1991
              66
              228
              1077
              39
              450
              43
              54
              21
              43
              4
              3
              101

            
              1992
              47
              216
              1070
              34
              390
              38
              40
              19
              53
              12
              1
              107

            
              1993
              48
              304
              1017
              15
              323
              45
              45
              11
              34
              4
              2
              102

            
              1994
              37
              338
              1086
              15
              401
              36
              37
              9
              35
              5
              0
              105

## PixivTagCollection.R
install.packages("RCurl")
library("RCurl")

my.keyword = "艦隊これくしょん 百合"

my.keyword.base = paste(my.keyword," 00Users入り", sep="")
my.keyword.hit = my.keyword

my.keyword.hit.c <- unlist(strsplit(my.keyword.hit," "))

## index.html
<!DOCTYPE html>
<meta charset="utf-8">
<style>
.result {
    border: 2px black solid;
}
.result th,.result td {
    border: 1px gray solid;
}


## RCharts.Rpres
RStudioのR PresentationsでrChartsを使う方法
========================================================
author: nezuq
date: 2013/11/10
width: 1440
height: 900
transition: fade

R Presentations + rChartsの例
========================================================
	# Rコンソールで下記コマンドを実行すると、ツールが起動する。
	# ※本ツールのRソースのダウンロードは下記コマンドで行う為、不要となる。
	# ※Windows環境下では文字化けを起こす。その時はブラウザのエンコード指定を[UTF-8]から[SHIFT-JIS]に変える必要がある。
	install.packages("shiny")
	library(shiny)
	options(encoding = "UTF-8")
	shiny::runGist("4702281")

	# ツールを終了する時はRコンソールでESCキーを押す。
	# その後、下記コマンドを実行する。
	library(SPARQL)
	endpoint <- "http://id.ndl.go.jp/auth/ndla/"
	query <-
	"
	PREFIX rda: <http://RDVocab.info/ElementsGr2/>
	PREFIX foaf: <http://xmlns.com/foaf/0.1/>

	SELECT
	?birth ?death
	WHERE {
	/*! d3.chart - v0.1.0
	* License: MIT Expat
	* Date: 2013-05-27
	*/
	(function(t){"use strict";var n=t.d3,e={noBase:Error("d3.layer must be initialized with a base"),noDataBind:Error("d3.layer must specify a `dataBind` method."),noInsert:Error("d3.layer must specify an `insert` method.")},r=function(t){if(!t)throw e.noBase;this._base=t,this._handlers={}};r.prototype.dataBind=function(){throw e.noDataBind},r.prototype.insert=function(){throw e.noInsert},r.prototype.on=function(t,n,e){e=e\|\|{},t in this._handlers\|\|(this._handlers[t]=[]),this._handlers[t].push({callback:n,chart:e.chart\|\|null})},r.prototype.off=function(t,n){var e,r=this._handlers[t];if(r){if(1===arguments.length)return r.length=0,undefined;for(e=r.length-1;e>-1;--e)r[e].callback===n&&r.splice(e,1)}},r.prototype.draw=function(t){var e,r,i,s,o,a,h,c;if(e=this.dataBind.call(this._base,t),!(e instanceof n.selection))throw Error("Invalid selection defined by `dataBind` method.");r=e.enter(),r._chart=this._base._chart,i=[{name:"update",selection:e},{n
	<!DOCTYPE html>
	<meta charset="utf-8">
	<html>
	<head>
	<script type="text/javascript" src="http://d3js.org/d3.v3.js"></script>
	<style type="text/css">
	.link { stroke: #ccc; }
	.nodetext { pointer-events: none; font: 12px; }
	</style>
	</head>
年代	死亡	失そう	世帯主の傷病治癒	世帯員の傷病治癒	働きによる収入の増加・取得	働き手の転入	社会保障給付金の増加	仕送りの増加	親類・縁者等の引取り	施設入所	医療費の他法負担	その他
1986	66	197	1906	87	822	89	137	51	74	16	8	340
1987	39	182	1306	93	820	90	89	42	62	18	10	265
1988	44	210	1410	63	691	69	65	23	51	16	8	275
1989	54	218	1380	54	529	39	44	23	40	13	5	234
1990	49	209	1387	46	490	52	43	27	53	6	5	106
1991	66	228	1077	39	450	43	54	21	43	4	3	101
1992	47	216	1070	34	390	38	40	19	53	12	1	107
1993	48	304	1017	15	323	45	45	11	34	4	2	102
1994	37	338	1086	15	401	36	37	9	35	5	0	105
	install.packages("RCurl")
	library("RCurl")

	my.keyword = "艦隊これくしょん百合"

	my.keyword.base = paste(my.keyword," 00Users入り", sep="")
	my.keyword.hit = my.keyword

	my.keyword.hit.c <- unlist(strsplit(my.keyword.hit," "))
	<!DOCTYPE html>
	<meta charset="utf-8">
	<style>
	.result {
	border: 2px black solid;
	}
	.result th,.result td {
	border: 1px gray solid;
	}
	RStudioのR PresentationsでrChartsを使う方法
	========================================================
	author: nezuq
	date: 2013/11/10
	width: 1440
	height: 900
	transition: fade

	R Presentations + rChartsの例
	========================================================