COVID-19

厚生労働省のwebページからファイルをダウンロードしてグラフを描いてみた。Rでggplot2を利用した。

移動平均の計算方法についてすこし気になることがある。当日のデータに6日前からのデータを加えて平均を計算しその日のところに表示するようになっている。これでいいのだろうか、それとも、3日前のところに表示すべきなのだろうか。

平均 <- vector("numeric",nrow(dat))

for (i in 7:nrow(dat)) {
平均[i] <- (dat[i,2] + dat[i-1,2] + dat[i-2,2] + dat[i-3,2] + dat[i-4,2] + dat[i-5,2] + dat[i-6,2])/7
}

平均 <- as.numeric(平均)
dat$平均　<- 平均