で作った表を、R を使って折れ線グラフにしてみようと思いました。
まず表を、全部半角英数字で作り直し。
※図はクリックすると大きくなります。
そして R でこんなコマンドを入れました。（出てきた警告は表示してません）
> saisyutu <- read.delim(pipe("pbpaste"), header = T)
> library(psych)
> library(maptools)
> attach(saisyutu)
> with(data = saisyutu, plot(nen,exratiohi, xlab = "seireki",ylab = "saisytuhi"))
> library(psych)
> library(maptools)
> attach(saisyutu)
> with(data = saisyutu, plot(nen,exratiohi, xlab = "seireki",ylab = "saisytuhi"))
ここまででできたのが、この図。
でもこれでは時系列の変動がわかりにくいので折れ線グラフ化したい。
> with(data = saisyutu, plot(exratiohi,exratiohilim = c(0,100),type = "l" ))
すると
おっ、折れ線グラフになった！と思ったら X 軸が西暦でなくなってる（泣）
またそれぞれの点に「どんなことがあったのか（日露戦争とか）」を書き入れたいと思ったのですが、あり？ラベルをつける方法、コマンドがどっかいっちゃった・・・
あっ、西暦が無くなったの、こう書いてきて、なんかもやっとわかったかな・・・
きっと、いろいろなところが無茶苦茶になってる、無駄もいっぱいしてる、と思います。
