# 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 # April 4, 2021: Japan total was added # May 8, 2021: Emergency added # May 23, 2021: 6x8 layout version if (!require(COVID19)) { install.packages("COVID19", dep=TRUE) library(COVID19) } x <- covid19(country="JPN", level=1, start="2020-01-01", end=Sys.Date()) x <- subset(x, date