◆新型コロナウイルス感染者の日ごとの推移のグラフを作成する「R」のコード例

グラフのデータは、Kaggleの「Novel Corona Virus 2019 Dataset」のcsvファイルに、「JJohns Hopkins university」のダッシュボードの最新データを追加したものです。KaggleのデータもJohns Hopkins universityのデータに基づいているようです。

「JJohns Hopkins university」のダッシュボードの最新データは、最新の日付が混在しているため、日別の集計にとっては、WHOの日報のデータを加工した方がよさそうです。

＜Rのコードの例：gganimateなどのパッケージを利用しています。＞

日別のデータにするために、便宜的に2月２日の日付を２月１日に置き換える処理をしています。

df_cov <- read.csv("2019_nCoV.csv")

df_cov <- df_cov %>% tidyr::separate(Last_Update, c("Last_Update1","time1"), " ", convert = TRUE)

df_cov$date1 <- lapply(df_cov$Last_Update1, gsub, pattern="2/2/2020", replacement = "2/1/2020")

df_cov$date1 <- as.Date(as.character(df_cov$date1),format="%m/%d/%y")

view(df_cov)

df_cov_date <- df_cov %>%  group_by(date1) %>% summarise(Conf = sum(Confirmed))

view(df_cov_date)

gra <- ggplot(df_cov_date, aes(x = date1, y = Conf)) + geom_bar(stat = "identity") + labs(x="Date",y="Confirmed Cases",title="Confirmed cases of 2019-nCoV")

plot(gra)

gra <- gra + transition_states(date1, transition_length = 4, state_length = 1) +

  shadow_mark() + enter_grow() + enter_fade()  

animate(gra, nframes = 200,fps = 15,start_pause = 20,duration = 20, width = 740, height = 520,renderer = gifski_renderer("ncov.gif"))

◆【更新版】新型コロナウイルス感染者の日ごとの推移のグラフを作成する「R」のコード例 ----------------------------------------------------

---------------------------------------------------
-