とおもってネットワーク解析をしようと思ってグラフを作ったはいいがigraph の扱いを完全に忘れているので保留。
その元号の年数もあるので適当にヒストグラムでも。
n <- read.delim("nengo.txt", stringsAsFactors=FALSE, header=FALSE) library(stringr) library(igraph) v <- n$V1[nchar(n$V1) == 2] el <- do.call(rbind, mapply(str_split, v, "")) g <- graph_from_edgelist(el) m <- get.adjacency(g)
平成 31 昭和 64 大正 15 明治 45 慶応 4 元治 2 文久 4 万延 2 安政 7 嘉永 7 弘化 5 天保 15 文政 13 文化 15 享和 4 寛政 13 天明 9 安永 10 明和 9 宝暦 14 寛延 4 延享 5 寛保 4 元文 6 享保 21 正徳 6 宝永 8 元禄 17 貞享 5 天和 4 延宝 9 寛文 13 万治 4 明暦 4 承応 4 慶安 5 正保 5 寛永 21 元和 10 慶長 20 文禄 5 天正 20 元亀 4 永禄 13 弘治 4 天文 24 享禄 5 大永 8 永正 18 文亀 4 明応 10 延徳 4 長享 3 文明 19 応仁 3 文正 2 寛正 7 長禄 4 康正 3 享徳 4 宝徳 4 文安 6 嘉吉 4 永享 13 正長 2 応永 35 明徳 5 康応 2 嘉慶 3 至徳 4 永徳 4 康暦 3 永和 5 応安 8 貞治 7 康安 2 延文 6 文和 5 観応 3 貞和 6 康永 4 暦応 5 元中 9 弘和 4 天授 7 文中 4 建徳 3 正平 25 興国 7 延元 5 建武 3 正慶 3 元弘 4 元徳 3 嘉暦 4 正中 3 元亨 4 元応 3 文保 3 正和 6 応長 2 延慶 4 徳治 3 嘉元 4 乾元 2 正安 4 永仁 7 正応 6 弘安 11 建治 4 文永 12 弘長 4 文応 2 正元 2 正嘉 3 康元 2 建長 8 宝治 3 寛元 5 仁治 4 延応 2 暦仁 2 嘉禎 4 文暦 2 天福 2 貞永 2 寛喜 4 安貞 3 嘉禄 3 元仁 2 貞応 3 承久 4 建保 7 建暦 3 承元 5 建永 2 元久 3 建仁 4 正治 3 建久 10 文治 6 元暦 2 寿永 3 養和 2 治承 5 安元 3 承安 5 嘉応 3 仁安 4 永万 2 長寛 3 応保 3 永暦 2 平治 2 保元 4 久寿 3 仁平 4 久安 7 天養 2 康治 3 永治 2 保延 7 長承 4 天承 2 大治 6 天治 3 保安 5 元永 3 永久 6 天永 4 天仁 3 嘉承 3 長治 3 康和 6 承徳 3 永長 2 嘉保 3 寛治 8 応徳 4 永保 4 承暦 5 承保 4 延久 6 治暦 5 康平 8 天喜 6 永承 8 寛徳 3 長久 5 長暦 4 長元 10 万寿 5 治安 4 寛仁 5 長和 6 寛弘 9 長保 6 長徳 5 正暦 6 永祚 2 永延 3 寛和 3 永観 3 天元 6 貞元 3 天延 4 天禄 4 安和 3 康保 5 応和 4 天徳 5 天暦 11 天慶 10 承平 8 延長 9 延喜 23 昌泰 4 寛平 10 仁和 5 元慶 9 貞観 19 天安 3 斉衡 4 仁寿 4 嘉祥 4 承和 15 天長 11 弘仁 15 大同 5 延暦 25 天応 2 宝亀 12 神護景雲 4 天平神護 3 天平宝字 9 天平勝宝 9 天平感宝 1 天平 21 神亀 6 養老 8 霊亀 3 和銅 8 慶雲 5 大宝 4 朱鳥 2 白雉 6 大化 6
