histo <- '1998/'

require(xts)
require(magrittr)

historicalCrises_date <- xts::xts(
  c('.com bubble','9/11 2001','Subprime Crisis unfolding','Lehman Bros. bankrupt','Eurozone Crisis unfolding','Russia annexed Crimea','Pandemic unfolding')
  ,as.Date(c('2000-04-01','2001-10-01','2005-07-01','2008-10-01','2009-10-01','2014-04-01','2020-04-01'))
)

historicalCrises_yearmon <- xts::xts(
  c('.com bubble','9/11 2001','Subprime Crisis unfolding','Lehman Bros. bankrupt','Eurozone Crisis unfolding','Russia annexed Crimea','Pandemic unfolding')
  ,as.yearmon(c('2000-04-01','2001-10-01','2005-07-01','2008-10-01','2009-10-01','2014-04-01','2020-04-01'))
)

historicalCrises_posix <- xts::xts(
  c('.com bubble','9/11 2001','Subprime Crisis unfolding','Lehman Bros. bankrupt','Eurozone Crisis unfolding','Russia annexed Crimea','Pandemic unfolding')
  ,strptime(c('2000-04-01 00:00:01','2001-10-01 00:00:01','2005-07-01 00:00:01','2008-10-01 00:00:01','2009-10-01 00:00:01','2014-04-01 00:00:01','2020-04-01 00:00:01'),format="%Y-%m-%d %H:%M:%OS")
)

load('ecb_2021-07-02.RData')

####### simply date

HICP.eu_date <- merge(HICP.headline,HICP.core)[histo]
index(HICP.eu_date) %<>% as.Date()

par(oma=c(4,1,1,1),mar=c(5, 5, 4, 6) + 0.1, pty='m')
plot(HICP.eu_date, ylim=yli.hcpi, cex=.5)
addEventLines(events=historicalCrises_date,col="#FF5733", cex=.7,lty=1.25,lwd=1, srt=90, pos=2,offset=-.5,on=1)

####### monthly date (yearmon)

HICP.eu_yearmon <- merge(HICP.headline,HICP.core)[histo]
index(HICP.eu_yearmon) %<>% as.yearmon()

par(oma=c(4,1,1,1),mar=c(5, 5, 4, 6) + 0.1, pty='m')
plot(HICP.eu_yearmon, ylim=yli.hcpi, cex=.5)
addEventLines(events=historicalCrises_yearmon,col="#FF5733", cex=.7,lty=1.25,lwd=1, srt=90, pos=2,offset=-.5,on=1)

####### date & time 

HICP.eu_posix <- merge(HICP.headline,HICP.core)[histo]
index(HICP.eu_posix) <- index(HICP.eu_posix) |> as.Date() |> paste('00:00:01') |> strptime(format="%Y-%m-%d %H:%M:%OS")

par(oma=c(4,1,1,1),mar=c(5, 5, 4, 6) + 0.1, pty='m')
plot(HICP.eu_posix, ylim=yli.hcpi, cex=.5)
addEventLines(events=historicalCrises_posix,col="#FF5733", cex=.7,lty=1.25,lwd=1, srt=90, pos=2,offset=-.5,on=1)