前のエントリーで、グラフを重ねたほうがいいと思ったので少し改造。こういうことができるからRは楽しい。 plot.datestep <- function(d, v){ #d:date(x) v:value(y) mar.old <- mar.new <- par("mar") mar.new[1] = mar.new[1] + 1 mar.new[4] = mar.new[4]…

集計スクリプトがエラーを検知してしまったので調査しなきゃなんだけど、とりあえずざっと結果が出てきた。ほえー予想通りアレとアレの一騎打ちってかんじ。なんか世代交代というか、ホントに第五？世代のアニメファンとして定義されそうですね。