こんなのがある。 http://www.google.org/flutrends/ データが公開されているのでいじってみると良い。 試しに可視化するとこんな感じ。 北半球と南半球ではやはり流行の時期がずれる。 df <- read.csv("http://www.google.org/flutrends/data.txt",header=T…