インフルエンザのデータの可視化

こんなのがある。
http://www.google.org/flutrends/
データが公開されているのでいじってみると良い。
試しに可視化するとこんな感じ。
北半球と南半球ではやはり流行の時期がずれる。

df <- read.csv("http://www.google.org/flutrends/data.txt",header=TRUE,skip=10,as.is=TRUE)
df.m <- melt(df,idvar="Date")
colnames(df.m) <- c("Date","country","value")
df.m$Date <- as.Date(df.m$Date)
df.m$country <- as.character(df.m$country)
df.ms <- subset(df.m, country %in% c("Russia", "Australia"))
ggplot(data=df.ms, aes(x=Date,y=value,group=country)) + geom_line(aes(color=country))