# 地震データの可視化 ～ggplot2によるVisualization～ ＜参考資料＞

# 1 ggplot2の紹介

# ggplot2のインストール

# install.packages("ggplot2")

# 以下のコードは、ggplot2パッケージ付属のdiamondsサンプルデータを使います

library(ggplot2)

# 基本パッケージの作図例

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]

plot(dsamp$carat, dsamp$price)

# 引用：統計解析フリーソフト R の備忘録頁

# http://cse.naro.affrc.go.jp/takezawa/r-tips.pdf

# ggplot2の作図例

d <- qplot(data = dsamp, carat, price)

d

d <- qplot(data = dsamp, carat, price, colour = clarity)

d

# 引用：ggplot2のqplot関数のまとめ

http://d.hatena.ne.jp/mickey24/20110223/ggplot2_qplot

# レイヤーを重ねてグラフを作成する

# 引用：Rのグラフィック作成パッケージ”ggplot2”について

http://f-n.daa.jp/2011/10/22/ggplot2/

# ggplot2 のコード例

p <- ggplot(mtcars, aes(mpg, wt))

p + geom_point(aes(shape = factor(cyl), colour = factor(cyl)), size = 6) +

geom_point(aes(shape = factor(cyl)), colour="grey90", size = 2.5) +

geom_abline(intercept = 5, slope = -0.1, colour = "red", size = 2)

# Reference 本家サイト

# http://had.co.nz/ggplot2/

# http://www.amazon.co.jp/Ggplot2-Elegant-Graphics-Data-Analysis/dp/0387981403

# 2 地震データの可視化

# 地震の予測・トピック

#・「震災、地震学の大きな敗北」地震学会、異例の自己批判

# http://sankei.jp.msn.com/affairs/news/111016/dst11101607570002-n1.htm

#・政府地震調査委、首都直下地震の確率「30年以内に70%」

# http://headlines.yahoo.co.jp/videonews/fnn?a=20120210-00000041-fnn-soci

#・Ｍ７級首都直下地震、４年内７０％…東大地震研（※平田直教授）

# http://www.yomiuri.co.jp/science/news/20120122-OYT1T00800.htm

# 地震の可視化（YouTube）

# http://www.youtube.com/watch?v=ACFp6UNbpa4&hd=1

# R-bloggers

# http://www.r-bloggers.com/

# iAnalysis合同会社

# http://ianalysis.jp/

# ATND

# HiRoshima.R #2

# Twitterハッシュタグ

# https://twitter.com/search?q=%23HiRoshimaR