コロナ感染者の推移

2020-01-16~2022-04-08までのコロナ感染者と死亡者の推移を出しています。

データ元はNHKからです。

準備

library(tidyverse)
 library(clipr)
 library(RcppRoll)
 d <- read.csv("https://www3.nhk.or.jp/n-data/opendata/coronavirus/nhk_news_covid19_domestic_daily_data.csv")
# 都道府県別
 d_2 <- read.csv("https://www3.nhk.or.jp/n-data/opendata/coronavirus/nhk_news_covid19_prefectures_daily_data.csv")
 theme_set( theme_bw(base_family = "HiraKakuProN-W3"))
# 型変換
 d$日付 <- as.Date(d$日付)

前処理

# 型変換
 d$日付 <- as.Date(d$日付)
# 移動平均値追加
 d <-   d %>% 
   mutate(
     move_mean_5 = roll_mean(x = 国内の感染者数_1日ごとの発表数,n = 5,na.rm = T,align = 'right',fill = NA),
     move_mean_7 = roll_mean(x = 国内の感染者数_1日ごとの発表数,n = 7,na.rm = T,align = 'right',fill = NA),
     move_mean_5_death = roll_mean(x = 国内の死者数_1日ごとの発表数,n = 5,na.rm = T,align = 'right',fill = NA),
     move_mean_7_death = roll_mean(x = 国内の死者数_1日ごとの発表数,n = 7,na.rm = T,align = 'right',fill = NA)
   )

国内の感染者数_1日ごとの発表数の推移

国内の死者数_1日ごとの発表数の推移 + 7日間移動平均

参考

NHK 特設サイト コロナウイルス https://www3.nhk.or.jp/news/special/coronavirus/data-all/#graph–infect-death__infect