# 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 # June 20, 2021: Emergency is off except Okinawa # July 12, 2021: Emergency call for Tokyo # July 27, 2021: Last day inclusion # July 30, 2021: Emergency call for 4 prefs (Kanagawa, Saitama, Chiba, Osaka); corrected on 31st July 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