# Plotting new confirmed cases for Japan against date in semilog scale. # November 24, 2020: Made # December 22, 2020: Change color palette # January 8, 2021: 3 prefs were added # January 17, 2021: New action date has been added # February 8, 2021: Emergency is off at Tochigi pref # February 28, 2021: Emergency is off at several prefs # March 21, 2021: Emergency is off at several prefs if (!require(COVID19)) { install.packages("COVID19", dep=TRUE) library(COVID19) } options(scipen=7) prefs <- c("Tokyo", "Hokkaido", "Osaka", "Fukuoka", "Hyogo", "Aichi", "Okinawa", "Saitama", "Kanagawa", "Miyagi") prefsJ <- c("“Œ‹ž", "–kŠC“¹", "‘åã", "•Ÿ‰ª", "•ºŒÉ", "ˆ¤’m", "‰«“ê", "é‹Ê", "_“Þì", "‹{é") # cols <- rainbow(length(prefs)) cols <- 1:length(prefs) palette("Okabe-Ito") y <- covid19(country="JPN", level=2, start="2020-01-01", end=Sys.Date()) y <- subset(y, date