# Plotting new confirmed cases against date in semilog scale. # 25 November 2020 (世界数カ国の画面表示のみ) if (!require(COVID19)) { install.packages("COVID19", dep=TRUE) library(COVID19) } cnts <- c("JPN", "SGP", "KOR", "SWE", "BRA", "IND", "ITA", "USA", "VNM", "TWN", "NZL", "GBR", "FRA") cntsJ <- c("日本", "シンガポール", "韓国", "スウェーデン", "ブラジル", "インド", "イタリア", "米国", "ベトナム", "台湾", "ニュージーランド", "英国", "フランス") cntsE <- c("Japan", "Singapore", "South Korea", "Sweden", "Brazil", "India", "Italy", "USA", "Vietnam", "Taiwan", "New Zealand", "United Kingdom", "France") cols <- rainbow(length(cnts)) ltys <- 1:length(cnts) ptys <- 1:length(cnts) x <- covid19(country=cnts, level=1, start="2020-01-01", end=Sys.Date()) x <- subset(x, date