地震

地震の年表

timeline パッケージ

(参考)
元号一覧 (日本))
地震の年表 (日本)#2000.E5.B9.B4.E4.BB.A3)

コード　年表1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
library(timeline)
Gen<-c("大正","昭和","平成")
Group<-rep("元号",3)
StartDate<-as.Date(c("1912/07/30","1926/12/25","1989/01/08") )
EndDate<-c(as.Date(c("1926/12/24","1989/01/07") ),Sys.Date()+365*10)
#
Gengo<-data.frame(Gen,Group,StartDate,EndDate)
#
Event<-c("北但馬地震","北丹後地震","日向灘で地震","河内大和地震","日向灘で地震","日向灘で地震","鳥取地震","東南海地震","三河地震","南海地震",
	"和歌山県南方沖で地震","紀伊水道で地震","福井地震","安芸灘で地震","徳島県南部で地震","日向灘で地震","えびの地震","日向灘で地震","三重県南東沖で地震","日向灘で地震","日向灘で地震",
	"兵庫県南部地震","鹿児島県北西部地震","鳥取県西部地震","芸予地震","紀伊半島南東沖地震","福岡県西方沖地震","淡路島付近で\n地震","薩摩半島\n西方沖地震","熊本地震","鳥取県中部\nで地震")
Date<-as.Date(c("1925/5/23","1927/3/7","1931/11/2","1936/2/21","1939/3/20","1941/11/19","1943/9/10","1944/12/7","1945/1/13","1946/12/21",
	"1948/4/18","1948/6/15","1948/6/28","1949/7/12","1955/7/27","1961/2/27","1968/2/21","1968/4/1","1984/1/1","1984/8/7","1987/3/18",
	"1995/1/17","1997/5/13","2000/10/6","2001/3/24","2004/9/5","2005/3/20","2013/4/13","2015/11/14","2016/4/16","2016/10/21") )
Side<-rep("Axis",31)
eq.events<-data.frame(Event,Date,Side)
#png("eqtimeline01.png",width=800,height=600)
timeline(Gengo,eq.events, event.spots=12, num.label.steps = 10, event.label='', event.above=FALSE,event.text.size = 4,event.label.method=1) +
 labs(title="西日本で起きた主な地震(北但馬地震(1925/5/23) 〜 鳥取県中部地震(2016/10/21))")
#dev.off()

コード　年表2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
library(timeline)
Cen<-c("16世紀","17世紀","18世紀","19世紀","20世紀","21世紀")
Group<-rep("世紀",6)
StartDate<-as.Date(c("1500-1-1","1600-1-1","1700-1-1","1800-1-1","1900-1-1","2000-1-1"))
EndDate<-as.Date(c("1599-12-31","1699-12-31","1799-12-31","1899-12-31","1999-12-31","2099-1-1"))
#
Century<-data.frame(Cen,Group,StartDate,EndDate)
#
Event<-c("明応地震（東南海・東海地震） M8.2～8.4\n (1498/9/20)","慶長地震（東海・南海・東南海連動型地震） M7.9～8\n (1605/2/3)",
	"宝永地震（東海・南海・東南海連動型地震） M8.4～8.7\n (1707/10/28)","安政東海地震（東海・東南海地震） M8.4\n (1854/12/23)",
	"安政南海地震 M8.4\n (1854/12/24)","昭和東南海地震_三重県沖 M7.9\n (1944/12/7)","昭和南海地震_和歌山県沖～四国沖 M8.0\n (1946/12/21)")
Date<-as.Date(c("1498/9/20","1605/2/3","1707/10/28","1854/12/23","1854/12/24","1944/12/7","1946/12/21") )
Side<-rep("Axis",7)
eq.events<-data.frame(Event,Date,Side)
#
#png("eqtimeline02.png",width=1000,height=600)
timeline(Century,eq.events, event.spots=12, num.label.steps = 8, event.label='', event.above=FALSE,event.text.size = 4,event.label.method=1) +
 labs(title="東海・南海・東南海 地震(明応地震(1498/9/20) 〜 昭和南海地震(1946/12/21))")
#dev.off()